'Damit jeder weis was ich meine.
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Try
            Dim p As New Process
            p.StartInfo.UseShellExecute = False
            p.StartInfo.RedirectStandardOutput = True
            p.StartInfo.FileName = "ping.exe"
            p.StartInfo.Arguments = "192.168.2.1"
            p.Start()
            Dim text As String = p.StandardOutput.ReadToEnd
            p.WaitForExit()
            TextBox2.Text = text
        Catch ex As Exception
            MsgBox("Befehl nicht ausführbar, ping.exe nicht gefunden!!!")
        End Try
    End Sub

'Hier ist mein Original Code, will das in die TextBox2 anzeigen lassen, ABER syncron.
 Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Try
            Dim p As New Process
            p.StartInfo.UseShellExecute = False
            p.StartInfo.RedirectStandardOutput = True
            p.StartInfo.FileName = "DTC.exe"
            p.StartInfo.Arguments = " -f" & TextBox1.Text & " -w -wp1 -l15"
            p.Start()
            Dim text As String = p.StandardOutput.ReadToEnd
            p.WaitForExit()
            TextBox2.Text = text
        Catch ex As Exception
            MsgBox("Befehl nicht ausführbar, DTC.exe nicht gefunden!!!")
        End Try

    Delegate Sub UpdateTextBoxTextDelegate(ByVal text As String)

    Sub Processtart()
        Try
            Dim p As New Process
            p.StartInfo.UseShellExecute = False
            p.StartInfo.RedirectStandardOutput = True
            p.StartInfo.ToString()
            p.StartInfo.CreateNoWindow = True
            p.StartInfo.FileName = "DTC.exe"
            p.StartInfo.Arguments = " -f" & TextBox1.Text & " -w -wp1 -l15"
            p.Start()
            Dim text As String = p.StandardOutput.ReadToEnd
            p.WaitForExit()
            p.Start()
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Button10_Test_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Processtart()
    End Sub

    Private Sub UpdateTextBoxText(ByVal text As String)
#If DEBUG Then
        Debug.WriteLine(text)
#End If
        If Me.CheckBox1.Checked Then
            Me.TextBox2.AppendText(text + Environment.NewLine)
        Else
            Me.TextBox2.Text = text
        End If
    End Sub

    Private Sub ProcessOutputDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) Handles '???? Was brauche ich da?
        If Not String.IsNullOrEmpty(e.Data) Then
            Me.Invoke(New UpdateTextBoxTextDelegate(AddressOf UpdateTextBoxText), New Object() {e.Data})
        End If
    End Sub