Private Sub backgroundwEncode_DoWork(ByVal sender As System.Object, ByVal e As _
   System.ComponentModel.DoWorkEventArgs) Handles backgroundwEncode.DoWork
        Dim p As New Process
        AddHandler p.OutputDataReceived, AddressOf ProcessOutputDataReceived
        p.StartInfo.FileName = "ffmpeg.exe"
        p.StartInfo.Arguments = "-i test.flv test.mpg"
        p.StartInfo.UseShellExecute = False
        p.StartInfo.RedirectStandardOutput = True
        p.StartInfo.CreateNoWindow = True
        p.Start()
        p.BeginOutputReadLine()
        p.WaitForExit()
    End Sub
    Private Sub ProcessOutputDataReceived(ByVal sender As Object, ByVal e As _
      DataReceivedEventArgs)
        If e.Data = "" Then
        Else
            ausgabe = ausgabe & vbNewLine & (e.Data)
        End If
    End Sub
 
    Private Sub timer_encodingfortschritt_Tick(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles timer_encodingfortschritt.Tick
        Dim temp As String = ausgabe
        TextBox1.Text = temp
    End Sub

I dream of gardens in the desert sand...