Sub Test()
		  Dim p As New Process 
		  AddHandler p.OutputDataReceived, AddressOf ProcessOutputDataReceived
        p.StartInfo.FileName = "ping.exe"
        p.StartInfo.Arguments = "-t vbarchiv.de"
        p.StartInfo.UseShellExecute = False
        p.StartInfo.RedirectStandardOutput = True
        p.Start()
        p.BeginOutputReadLine()
        p.WaitForExit()
	End Sub
 
	Private Sub ProcessOutputDataReceived(sender As Object, e As _
  DataReceivedEventArgs) 
		Console.WriteLine ( e.Data )
	End Sub