Private Sub cmdStart1_Click()
  Startzeit = Time
    Text9 = "00:00:00"
    tmrTimer1.Enabled = True
    cmdStop1.Enabled = True
    cmdStart1.Enabled = False
    cmdEnde.Enabled = False
End Sub
Private Sub cmdStop1_Click()
tmrTimer1.Enabled = False
   Text9 = Format(Time - Startzeit, "hh:mm:ss")
    cmdStop1.Enabled = False
    cmdStart1.Enabled = True
    cmdEnde.Enabled = True
End Sub
Private Sub tmrTimer1_Timer()
    Text9 = Format(Time - Startzeit, "hh:mm:ss")
End Sub