Option Explicit
 
Private Sub Command1_Click()
    'Weiter
    Timer1.Enabled = True
End Sub
 
Private Sub Command2_Click()
    'Stopp
    Timer1.Enabled = False
End Sub
 
Private Sub Command3_Click()
    'Zurücksetzen
    Label1.Caption = "00:00:00"
End Sub
 
Private Sub Form_Load()
    Label1.Caption = "00:00:00"
    Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_Timer()
    Label1.Caption = CDate(Label1.Caption) + "00:00:01"
End Sub