Option Explicit
 
Private m_t2 As Long
 
Private Sub cmdGo_Click()
 
  m_t2 = 0
  Timer.Enabled = True
  Timer.Interval = 1000
  Timer.Tag = Now()
 
End Sub
 
Private Sub Timer_Timer()
 
  lblTDiff = DateDiff("s", Timer.Tag, Now())
 
  'Hier drunter der Code, der zeigt, dass ein herauf-/herunterzählen ungenau 
  ' ist.
  m_t2 = m_t2 + 1
  lblTDiff2 = m_t2
  'Schlägt zu, wenn die beiden Zeiten voneinander abweichen
  Debug.Assert CLng(lblTDiff2.Caption) = CLng(lblTDiff.Caption)
 
End Sub

Gruß
Dirk

--
?Get it right the first time