' ALLGEMEIN BEREICH
Dim EndDate As Date
Dim Diff As TimeSpan
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Me.EndDate = New Date(2004, 1, 20) ' DEIN END-DATE
        Me.Diff = Now.Subtract(EndDate)
        MessageBox.Show ("ZEIT BIS ZUM :" + Me.EndDate.ToString + _
          Environment.NewLine + Me.Diff.TotalSeconds.ToString + " Sekunden")
End Sub