Option Explicit
Dim Time2 As Date
Private Sub cmdstart_Click()
Timer1.Enabled = True
End Sub
Private Sub cmdstop_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000 'timer time is 1 second
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
lbltimer.Caption = Format$(Time2, "hh") & ":" & Format$(Time2, "nn") & ":" & Format$(Time2, "ss")
Time2 = DateAdd("s", 1, Time2)
End Sub
