估计是未对Timer控件的Interval赋值。该控件的这个属性是缺省设置值0。
Option Explicit
Private Sub Command1_Click()
If Command1.Caption = "&S 暂停" Then
Command1.Caption = "&C 继续"
Timer1.Enabled = False
Else
Command1.Caption = "&S 暂停"
Timer1.Enabled = True
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Text1 = Time
End Sub
互相学习中 的回复是正解。