Private StopuhrLaeuft As Boolean
Private StartTime As Single
Private ZeitInSekunden As Single
 
Private Sub cmdStart_Click()
  StopuhrLaeuft = True
  StartTime = Timer()
 
  Timer1.Interval = 10
  Timer1.Enabled = True
End Sub
 
Private Sub cmdStop_Click()
  StopuhrLaeuft = False
 
  Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
  Dim Sekunden As Long
  Dim HundertstelSekunden As Integer
 
  ZeitInSekunden = Round(Timer() - StartTime, 3)
 
  Sekunden = Int(TimeDiff)
  HundertstelSekunden = Round(Int(TimeDiff * 100) Mod 100, 0)
 
  lblTime.Caption = Sekunden & ":" & HundertstelSekunden
End Sub

- "Computers are like air conditioners. They stop working properly when you open Windows"