CountDown timer Stuff:-
==========================

     Private Sub TEST_TIMER_Timer()

     - GENERAL - 'Create CountDown Object
                 Dim Countdown As Date
                 
                 
      Private Sub
      
        Dim command As String

        Countdown = Countdown - (1 / 24 / 60 / 60) 'Subtract Seconds
        
        UPDATE_COUNTDOWN_TEXTBOX.Text = Format(Countdown, "hh:mm:ss") 'Display
        
        
     Countdown = "30" 'What Time To Start From


   If UPDATE_COUNTDOWN_TEXTBOX.Text = "20" Then
        ShellExecute Me.hwnd, "runas", "calc.exe", "", "", SW_SHOWNORMAL
        End If
        
   If UPDATE_COUNTDOWN_TEXTBOX.Text = "25" And Check1.Value = 1 Or Check2.Value = 1 Then
        ShellExecute Me.hwnd, "runas", "calc.exe", "", "", SW_SHOWNORMAL