Dim ts As TimeSpan = TimeSpan.Parse("1:30:25")
        Dim dt As New DateTime(ts.Ticks)
        Debug.WriteLine(dt.TimeOfDay.ToString)

        Dim dt As New Date(2006, 6, 1, 1, 1, 1, 1)
        Dim ts1 As New TimeSpan(Now.Ticks)
        Dim ts2 As New TimeSpan(dt.Ticks)
 
        Debug.WriteLine("Bis zum " + dt.ToString + " sind es noch min. " + CInt( _
          ts2.Subtract(ts1).TotalDays).ToString + " Tage.")