<font color=green>' Deklaration</font>
Private Declare Function TimeInterval Lib "vbex32.dll" Alias _
    "VBTIMEINTERVAL" (ByVal nSeks As Long) As String

Private Sub Timer1_Timer()
  Dim vDifferenz As Variant
  Dim vFest As Variant
  Dim iSeconds As Long
 
  <font color=green>' Festes Datum</font>
  vFest = CDate("10.06.2002 12:00:00")
 
  <font color=green>' Zeit-Differenz: Sekunden</font>
  iSeconds = DateDiff("s", vNow, vFest)
 
  <font color=green>' Ausgabe CountDown</font>
  lblTime.Caption = TimeInterval(iSeconds)
End Sub