Public ms, s, m As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
ms = 0
s = 0
m = 0
Label1.Caption = ms
Label2.Caption = s
Label3.Caption = m
End Sub
Private Sub Form_Load()
ms = 0
s = 0
m = 0
Label1.Caption = ms
Label2.Caption = s
Label3.Caption = m
End Sub
Private Sub Timer1_Timer()
ms = ms + 1
Label1.Caption = ms
If ms = 99 Then
ms = 0
s = s + 1
Label2.Caption = s
If s = 9 Then
s = 0
m = m + 1
Label3.Caption = m
End If
End If
End Sub