Option Explicit
 
Const mclInterval   As Long = 1000 ' entspricht 1 Sec.
 
Private Sub StartCouner()
  ' Timer starten
  Timer1.Interval = mclInterval
  Timer1.Enabled = True
End Sub
 
Private Sub StopCouner()
  ' Timer anhalten
  Timer1.Enabled = False
End Sub
 
Private Sub cmdStart_Click()
  If Timer1.Enabled Then
    Call StopCouner
  Else
    Call StartCouner
  End If
End Sub
 
Private Sub Timer1_Timer()
  ' Dieses Event tritt in dem oben eingegebenen
  ' Interval ein.
  Static lCount As Double
  lCount = lCount + (Timer1.Interval / mclInterval)
  txtSecCount.Text = lCount
End Sub