process.start(".\AutoIt3.exe", "Argumentos si quieres")

timer1.interval = 5000 ' ms

#Region " Time Remaining "
 
    ' [ Time Remaining ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' CountDown_Start()
 
    Dim TotalTime As Long = 10000 ' ms
    Dim Time_Elapsed_Watch As New Stopwatch
    Dim Time_Remaining_Span As New TimeSpan()
    Dim WithEvents CountDown_Timer As New Timer
 
    Private Sub CountDown_Start()
        Time_Remaining_Span = TimeSpan.FromMilliseconds(TotalTime + 1000)
        Time_Elapsed_Watch.Start()
        CountDown_Timer.Start()
    End Sub
 
    Private Sub CountDown_Timer_Tick(sender As Object, e As EventArgs) Handles CountDown_Timer.Tick
        Dim TimeRemaining As TimeSpan = Time_Remaining_Span - Time_Elapsed_Watch.Elapsed
 
        Label1.Text = "Elapsed : " & _
                     String.Format("{0:00}:{1:00}:{2:00}", _
                     Time_Elapsed_Watch.Elapsed.Hours, _
                     Time_Elapsed_Watch.Elapsed.Minutes, _
                     Time_Elapsed_Watch.Elapsed.Seconds)
 
        Label2.Text = "TimeLeft: " & _
                      String.Format("{0:00}:{1:00}:{2:00}", _
                      CLng(Math.Floor(TimeRemaining.TotalHours)) Mod 999999999999999999, _
                      CLng(Math.Floor(TimeRemaining.TotalMinutes)) Mod 60, _
                      CLng(Math.Floor(TimeRemaining.TotalSeconds)) Mod 60)
 
        If TimeRemaining.TotalSeconds <= 0 OrElse Time_Elapsed_Watch.ElapsedMilliseconds > TotalTime Then
            Time_Elapsed_Watch.Reset()
            CountDown_Timer.Stop()
        End If
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CountDown_Start()
    End Sub
 
#End Region

    On Error GoTo ErrMsg
    AxMMControl1.Wait = True
    AxMMControl1.FileName = OpenFileDialog1.FileName
    AxMMControl1.Command = "Open"
    AxMMControl1.Command = "Play"
    Exit Sub
    ErrMsg:
    MsgBox(Err.Description)
    End Sub

    Dim Run_Sound As Boolean = False
    Dim Run_Program As Boolean = False
 
    Private Sub RadioButtons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
                                                                                               RadioButton1.Click, _
                                                                                               RadioButton2.Click
        Select Case sender.tag.tolower
            Case "sound" : Run_Sound = True : Run_Program = False
            Case "program" : Run_Program = True : Run_Sound = False
            Case Else : Throw New Exception("Wrong tagname")
        End Select
 
    End Sub
 
    Private Sub Time_Success() ' a este sub lo llamas cuando el tiempo restante séa "00:00:00"
        If Run_Sound Then
            ' play wav
        ElseIf Run_Program Then
            ' process.start()
        Else
             Throw New Exception("Wrong option")
        End If
    End Sub