'
        Dim Left_Days As Integer
        Dim Left_Hours As Integer
        Dim Left_Minutes As Integer
        Dim Left_Seconds As Integer
        Left_Days = CInt(days.Text)
        Left_Hours = CInt(hours.Text)
        Left_Minutes = CInt(minutes.Text)
        Left_Seconds = CInt(seconds.Text)
        '
        Dim TimeSpan_Left As New TimeSpan(Left_Days, Left_Hours, Left_Minutes, _
          Left_Seconds)
        '