Private Sub Command1_Click()
If Command1.Caption = "计时开始" Then
Command1.Caption = "计时结束"
Counter = 0
Timer1.Enabled = True
Else
Command1.Caption = "计时结束"
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = False
Counter = 0
Command1.Caption = "计时开始"
End Sub
Private Sub Timer1_Timer()
Counter = Counter + 1
Print Counter
If Counter Mod 10 = 0 Then
Print "计时一次"
End If
End Sub