Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
  Handles Button1.Click
        ' Ein neues Process-Objekt erzeugen 
        ' Die StartInfo-Struktur des Process- 
        ' Objekts mit Informationen befüllen 
        With Anwendung.StartInfo
            ' Befehlszeileninterpreter (COMMAND.COM/CMD.EXE): 
            .FileName = Environ("COMSPEC")
            ' Kein Konsolenfenster erzeugen: 
            '.CreateNoWindow = True
            ' 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()
 
        Dim StdIn As System.IO.StreamWriter = Anwendung.StandardInput
        Dim StdOut As System.IO.StreamReader = Anwendung.StandardOutput
        Dim StdErr As System.IO.StreamReader = Anwendung.StandardError
        StdIn.AutoFlush = True ' Puffer automatisch flushen 
 
        'StdIn.WriteLine("ECHO OFF")
        ' Einen EXIT-Befehl über StdIn absetzen:        '
        '       StdIn.WriteLine("avrdude.exe -U")
        '       'StdIn.WriteLine("help")
        '       'StdIn.WriteLine("DIR C:\*.*")
        'StdIn.WriteLine("ping 192.168.178.1")
        StdIn.WriteLine("TELNET -?")
        StdIn.WriteLine("EXIT")
 
        Dim sTemp As String ' Hilfsvariable 
        ' Standardausgabe beim Starten des Befehlszeileninterpreters 
        ' auslesen und damit aus dem Output-Puffer entfernen: 
        'sTemp = StdOut.ReadLine() & vbNewLine
        'While (Not StdOut.EndOfStream)
        '    sTemp &= StdOut.ReadLine() & vbNewLine
        'End While
 
        sTemp = StdOut.ReadToEnd()
        MessageBox.Show(sTemp, "Befehlszeileninterpreter")
 
        StdIn.Close()
        StdOut.Close()
        StdErr.Close()
 
        ' Befehlszeileninterpreter ggf. "abschießen": 
        If Not Anwendung.HasExited Then
            Anwendung.Kill()
        End If
        ' Ressourcen des Process-Objekts freigeben 
        Anwendung.Close()
    End Sub