Public Class Form1
 
    Dim endDate As Date = #1/1/2007#
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim countdown As TimeSpan = endDate.Subtract(Now)
        Label1.Text = countdown.Days.ToString + _
            " Tage " + Format(countdown.Hours, "00") + _
            ":" + Format(countdown.Minutes, "00") + _
            ":" + Format(countdown.Seconds, "00")
    End Sub
End Class

Gruss mm78pr

http://msdn.microsoft.com/de-de/default.aspx