Dim Left_Days As Integer = 10
        Dim Left_Hours As Integer = 3
        Dim Left_Minutes As Integer = 20
        Dim Left_Seconds As Integer = 10
        Dim TimeSpan_Left As New TimeSpan(Left_Days, Left_Hours, Left_Minutes, _
          Left_Seconds)
        Dim s As String
        Dim dt As New Date(1, 1, TimeSpan_Left.Days, TimeSpan_Left.Hours, _
          TimeSpan_Left.Minutes, TimeSpan_Left.Seconds)
        s = dt.ToString("dd HH:mm:ss")
        MessageBox.Show("Time left: " + s)