Private Delegate Sub GetDataHandler(ByVal dataIn As System.IO.StreamReader, _
                                        ByVal dataOut As System.IO.StreamWriter)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Debug.WriteLine(Environment.GetEnvironmentVariable("COMSPEC"))
 
        Dim swo As New System.IO.StreamWriter("C:\xdos.txt")
        Dim prog As Process = New Process
        prog.StartInfo.FileName = Environment.GetEnvironmentVariable("COMSPEC")
 
        prog.StartInfo.UseShellExecute = False
        prog.StartInfo.RedirectStandardOutput = True
        prog.StartInfo.RedirectStandardInput = True
        prog.StartInfo.CreateNoWindow = True
        prog.Start()
 
        Dim si As System.IO.StreamWriter = prog.StandardInput
        Dim so As System.IO.StreamReader = prog.StandardOutput
        Dim gd As New GetDataHandler(AddressOf GetData)
        Dim ia As IAsyncResult = gd.BeginInvoke(so, swo, Nothing, Nothing)
 
        Dim s As String
        For i As Integer = 1 To 10
            si.WriteLine("Ping 172.17.4." & i.ToString())
        Next
        prog.StandardInput.WriteLine("Exit")
        gd.EndInvoke(ia)
        prog.WaitForExit()
        swo.Close()
    End Sub
 
    Private Sub GetData(ByVal dataIn As System.IO.StreamReader, _
                        ByVal dataOut As System.IO.StreamWriter)
        dataOut.Write(dataIn.ReadToEnd())
    End Sub