VB 2010 Progress Bar.

Dim s = Sub()Using p AsNew ProcessAddHandler p.ErrorDataReceived,Sub(sendingProcess AsObject,
            outLine As DataReceivedEventArgs)If outLine.Data <> ""Then BeginInvoke(Sub() Text = outLine.Data)EndSub

        p.StartInfo.FileName = "D:\Projekte\StaxMedia\trunk\StaxRip\bin\Applications\x264\x264.exe"
        p.StartInfo.Arguments = "--preset fast --tune film --crf 18 --sar 16:11 --output ""D:\Video\Samples\DVD\Pulp Fiction\VTS_01_1 temp files\VTS_01_1_CompCheck.h264"" ""D:\Video\Samples\DVD\Pulp Fiction\VTS_01_1 temp files\VTS_01_1_CompCheck.avs"""
        p.StartInfo.UseShellExecute = False
        p.StartInfo.RedirectStandardError = True
        p.StartInfo.CreateNoWindow = True
        p.Start()
        p.BeginErrorReadLine()
        p.WaitForExit()EndUsingEndSub

s.BeginInvoke(Nothing, Nothing)