急求！vb制作滚动字幕代码

Question

要求用时钟控件和滚动条调节和控制字幕滚动速度,从右向左连续滚动.

Answer 1

加入一个命今按钮：command1.
加入一个文本框：text1.
加入一个时间控件：timer1.
加入一个横向的滚动条：hscroll1.把：min属性设为2，max属性设为100，smallchange设为1。
下面代码：

Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 10
End Sub

Private Sub Form_Load()
Command1.Caption = "开始"
Text1.BackColor = &H8000000F
Text1.BorderStyle = 0
Text1.Text = "测试区域"
Timer1.Enabled = False
End Sub

Private Sub HScroll1_Change()
Timer1.Interval = 10 * HScroll1.Value / 10
End Sub

Private Sub HScroll1_Scroll()
Timer1.Interval = 10 * HScroll1.Value / 10
End Sub

Private Sub Timer1_Timer()
Text1.Left = Text1.Left - 50
If Text1.Left < 0 Then
Text1.Left = Form1.Width
End If
End Sub
技术含量不高，供参考！

Answer 2

Private
Sub
Timer1_Timer()
If
Label1.Left
=
Form1.ScaleWidth
Then
Label1.Left
=
-50
Else
Label1.Left
=
Label1.Left
+
10
End
If
End
Sub
可以把Timer的时间设置小一点
速度就会快一些、

Answer 3

就是把控件制作成移动的就行了