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
            AddHandler .OutputDataReceived, AddressOf ProcessOutputDataReceived
            .StartInfo.FileName = "rtoolkit.bat"
            .StartInfo.UseShellExecute = False
            .StartInfo.RedirectStandardOutput = True
            .Start()
            .BeginOutputReadLine()
        End With
 
    End Sub
 
    Private Sub ProcessOutputDataReceived(ByVal sender As Object, ByVal e As _
      DataReceivedEventArgs)
        If Not String.IsNullOrEmpty(e.Data) Then
            Me.Invoke(New UpdateTextBoxTextDelegate(AddressOf _
              UpdateTextBoxText), New Object() {e.Data})
        End If
    End Sub
 
    Private Sub UpdateTextBoxText(ByVal text As String)
        Me.TextBox1.AppendText(text + Environment.NewLine)
    End Sub
 
    Delegate Sub UpdateTextBoxTextDelegate(ByVal text As String)