Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button1.Click
 
StartConsolenAnwendung()
End Sub
 
Sub StartConsolenAnwendung()
Dim p As New Process()
 
p.StartInfo.FileName = "batch\rtmpdump\rtmpdump.exe"
p.StartInfo.WorkingDirectory = ""
p.StartInfo.Arguments = "-r ""rtmp://Link/"" -W" & _
  """http://www.host.net/player/player.swf"" -p ""http://www.host.net/"" -y" & _
  """mystreamapp"""
p.StartInfo.CreateNoWindow = True
p.StartInfo.UseShellExecute = False
p.StartInfo.RedirectStandardOutput = True
AddHandler p.OutputDataReceived, AddressOf WriteProcessOutput
p.Start()
p.BeginOutputReadLine()
 
 
Private Sub WriteProcessOutput(ByVal sendingProcess As Object, ByVal outLine As _
  DataReceivedEventArgs)
 
If outLine.Data IsNot Nothing Then
Me.Invoke(Sub() RichTextBox1.AppendText(outLine.Data & Environment.NewLine))
 
End If
End Sub