Private Sub cmdStartzeitSetzen_Click()
    Call SetzeStartzeit        ' <-- eine Startzeit setzen
    Timer1.Enabled = True
End Sub
 
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
    Call ResetStartzeit        ' <-- zum Löschen der Startzeit
    Label1.Caption = "00:00:00"
End Sub
 
Private Sub Timer1_Timer()
    Label1.Caption = Zeitnahme ' <-- statt CDate(Label1.Caption) + "00:00:01"
End Sub