Dim EndDate As Date
    Dim Diff As TimeSpan
    Dim Timer As System.Timers.Timer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer = New System.Timers.Timer
        EndDate = New Date(2004, 4, 9, 22, 0, 0) ' Endzeitpunkt
        AddHandler Timer.Elapsed, New System.Timers.ElapsedEventHandler( _
          AddressOf timer_Elapsed)
        Timer.Interval = 100
        Timer.Start()
    End Sub
    Private Sub Timer_Elapsed(ByVal sender As Object, ByVal e As _
      System.Timers.ElapsedEventArgs)
        Me.Diff = EndDate.Subtract(Now)
        Me.Label1.Text = Diff.TotalSeconds.ToString("0.00")
    End Sub