Option Explicit
Dim i, j, s As Date
Private Sub Command1_Click()
Timer1.Enabled = True
i = Now
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
j = Now
s = j - i
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now - d, "hh:mm:ss:ms")
Label2.Caption = Format(s, "hh:mm:ss")
End Sub