proga.StartInfo.UseShellExecute = False
                proga.StartInfo.RedirectStandardOutput = True
                proga.StartInfo.CreateNoWindow = True
                proga.Start()
                While (proga.HasExited = False)
                    Dim myStreamReader As StreamReader = proga.StandardOutput
                    eac3to_fortschritt = (myStreamReader.ReadLine())
                    BackgroundWorker1.ReportProgress(5)
                    Threading.Thread.Sleep(1)
                End While
 
                proga.WaitForExit()