Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim ChkT As New Thread(AddressOf CheckMeSub)
        ChkT.Start()
    End Sub
 
 
    Sub CheckMeSub()
        Dim prozess As New System.Diagnostics.Process
        With prozess.StartInfo
            .FileName = "rtoolkit.bat"
            .UseShellExecute = False
            .RedirectStandardOutput = True
        End With
 
        prozess.Start()
    End Sub