楼主是要这个么? Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() If Command2.Caption = "暂停" Then Command2.Caption = "重新": Timer1.Enabled = False Else Command2.Caption = "暂停": Timer1.Enabled = True End If End Sub Private Sub Timer1_Timer() Label1.Caption = Time End Sub