Private Sub Command1_Click()
If Command1.Caption = "&S开始" Then
Command1.Caption = "&E暂停"
Timer1.Enabled = True
ElseIf Command1.Caption = "&E暂停" Then
Command1.Caption = "&S开始"
Timer1.Enabled = False
End If
Select Case True
Case Option1.Value
Label1.FontName = "宋体"
Case Option2.Value
Label1.FontName = "楷体_GB2312"
Case Option3.Value
Label1.FontName = "黑体"
End Select
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Form_Load()
Me.Caption = "滚动字幕板"
Option1.Caption = "宋体"
Option2.Caption = "楷体"
Option3.Caption = "黑体"
Command1.Caption = "&S开始"
Timer1.Interval = 5
Timer1.Enabled = False
Label1.Caption = "黄申元"
Label1.AutoSize = True
Label1.FontSize = 25
Label1.BackColor = RGB(0, 0, 0): Label1.ForeColor = RGB(255, 255, 255)
Label1.Left = 0
Label1.Top = (Me.ScaleHeight - Label1.Height) / 2
End Sub

Private Sub Timer1_Timer()
If Label1.Left + Label1.Top > 0 Then
Label1.Move Label1.Left - 20
Else
Label1.Left = Form1.ScaleWidth
End If
End Sub
为什么 不能 暂停 ？ 谢谢