Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        doBat("C:\Test", "Test.bat")
    End Sub
 
 
    Public Sub doBat(path As String, bat As String)
        Dim pi As ProcessStartInfo
        Dim p As Process
        pi = New ProcessStartInfo("cmd.exe", "/k " & IO.Path.Combine(path, bat))
        pi.WorkingDirectory = path
        p = Process.Start(pi)
        p.WaitForExit()
    End Sub