Delegate Sub UpdateTextBoxTextDelegate(text As String)
 
	Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
		Test()
	End Sub
 
	Sub Test()
		With New Process() 
			AddHandler .OutputDataReceived, AddressOf ProcessOutputDataReceived
	        .StartInfo.FileName = "ping.exe"
	        .StartInfo.Arguments = "-t vbarchiv.de"
	        .StartInfo.UseShellExecute = False
	        .StartInfo.RedirectStandardOutput = True
	        .StartInfo.CreateNoWindow = True
	        .StartInfo.WindowStyle = ProcessWindowStyle.Hidden
	        .Start()
	        .BeginOutputReadLine()
		End With
	End Sub
 
	Private Sub UpdateTextBoxText ( text As String ) 
		#if DEBUG then
			Debug.WriteLine ( text )
		#endif
		If Me.checkBox1.Checked Then '// Append text
			me.textBox1.AppendText ( text + Environment.NewLine )
		Else
			me.textBox1.Text = text
		End If
	End Sub
 
	Private Sub ProcessOutputDataReceived(sender As Object, e As _
  DataReceivedEventArgs) 
		If Not String.IsNullOrEmpty ( e.Data ) Then
			Me.Invoke ( New UpdateTextBoxTextDelegate (AddressOf UpdateTextBoxText), New _
  Object () { e.Data })				
		End If
	End Sub