Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
  Me.Timer1.Start()
  Me.Timer1.Interval = 3600000
  WieLangeNoch
End Sub
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
  WieLangeNoch
End Sub
 
Sub WieLangeNoch()
  Me.Endlich = New Date(2004, 6, 10)
  Me.Diff = Now.Subtract(Endlich)
  Me.Counter.Text = "Zeit bis zum Metallica Konzert:" + "     " + _
  System.Math.Round(Double.Parse(Me.Diff.TotalDays.ToString.Remove(0, _
  1))).ToString + " Tage"
End Sub