VB制作自动滚动字幕窗体

单击“开始”按钮，字幕自动从右至左滚动，当字幕从左面完全消失后，再从右边界自动出现，继续滚动，字体颜色随机变化，且“开始”按钮切换成“停止”按钮。单击“停止”按钮，字幕停止滚动，且按钮切换成“开始”按钮。

Dim a Const s = "你好，欢迎你！！" Private Sub Command1_Click() Cls If Command1.Caption = "停止" Then Timer1.Enabled = False Command1.Caption = "开始" Else Timer1.Enabled = True Command1.Caption = "停止" a = Me.ScaleWidth End If End Sub Private Sub Form_Load() Command1.Caption = "开始" Timer1.Interval = 200 Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Cls a = a - 100 If a + TextWidth(s) < 0 Then a = Me.ScaleWidth CurrentX = a CurrentY = 500 Me.ForeColor = QBColor(Int(Rnd * 15)) Print s End Sub