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