其实这个程序思想很简单，就是用Timer顺序移动几个Lable达到“滚动”的效果。
启动VB6。（废话）
窗体布局属性如图01/02
然后缩一下Form1让它把Lable都Hide就剩下三个白色的控制钮。
Hight建议4095
相应按钮的代码
（Form1的字幕部分分别是Lable1,Lable2……Lable5，其他为678）
所有'后面文字不需要输入，如果你想以后学习，建议你加上~
复制内容到剪贴板
代码:
Private Sub Form_Unload(Cancel As Integer)
Unload Form2
'这个样子不会至于窗体隐藏进程退不出来
End Sub复制内容到剪贴板
代码:
Private Sub Label6_Click()
Timer1.Enabled = True
'激活Timer1
End Sub复制内容到剪贴板
代码:
Private Sub Label7_Click()
Timer1.Enabled = False
'暂停
End Sub复制内容到剪贴板
代码:
Private Sub Label8_Click()
Form2.Show
‘配置按钮
End Sub注意：请先设定Timer1的间隔值
不然是0运行不了别找我= =
（Form2）
复制内容到剪贴板
代码:
Private Sub Command1_Click()
Form1.Label1.Font = Text1.Text
Form1.Label2.Font = Text1.Text
Form1.Label3.Font = Text1.Text
Form1.Label4.Font = Text1.Text
Form1.Label5.Font = Text1.Text
‘赋值给Form1的各位
If Text3.Text <= 0 Or Text2.Text <= 0 Then
MsgBox "错误的数值！"
GoTo a
Else
Form1.Timer1.Interval = Text3.Text
Me.Hide
End If
'判断数值是否合法，免出错
Form1.Label1.Font.Size = Text2.Text
Form1.Label2.Font.Size = Text2.Text
Form1.Label3.Font.Size = Text2.Text
Form1.Label4.Font.Size = Text2.Text
Form1.Label5.Font.Size = Text2.Text
‘赋值给Form1的各位
a:
'子程序，让他什么也不干
End Sub这样子应该就完蛋了= =就这样子了
