Private Sub cmdDOS_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdDOS.Click
        ' Ein neues Process-Objekt erzeugen 
        Dim Anwendung As System.Diagnostics.Process _
          = New System.Diagnostics.Process()
        ' Die StartInfo-Struktur des Process- 
        ' Objekts mit Informationen befüllen 
        With Anwendung.StartInfo
            ' Befehlszeileninterpreter: 
            .FileName = "C:\Dokumente und" & _
              "Einstellungen\Beispiel\Desktop\putty.exe"
            'Parameter mitgeben
            .Arguments = "-ssh 111.11.111.11 -P 1111 -l test"
            ' Kein Konsolenfenster erzeugen: 
            .CreateNoWindow = False
            ' StandardInput, -Output und -Error umleiten: 
            .RedirectStandardInput = True
            .RedirectStandardOutput = True
            .RedirectStandardError = True
            ' UseShellExecute MUSS für eine Umleitung 
            ' von StdIn, StdOut und StdErr FALSE sein: 
            .UseShellExecute = False
        End With
        ' Den Befehlszeileninterpreter starten: 
        Anwendung.Start()
 
        ' StreamReader- und Writer-Objekte für den 
        ' Zugriff auf StdIn, StdOut und StdErr erzeugen 
        ' Über ein StreamWriter-Objekt in StandardInput schreiben 
        Dim StdIn As System.IO.StreamWriter = Anwendung.StandardInput
        StdIn.AutoFlush = True ' Puffer automatisch flushen 
        ' Über ein StreamReader-Objekt aus StandardOutput lesen 
        Dim StdOut As System.IO.StreamReader = Anwendung.StandardOutput
        ' Über ein StreamReader-Objekt aus StandardError lesen 
        Dim StdErr As System.IO.StreamReader = Anwendung.StandardError
 
        ' Schreiben
        StdIn.WriteLine("TEST")
 
        ' Streams schließen 
        StdIn.Close()
        StdOut.Close()
        StdErr.Close()
 
    End Sub