Private Sub LameReader()
        Dim m As Match
        Dim oneLine As String
 
        Try
            lameProcess.Start()
 
            oneLine = lameProcess.StandardError.ReadLine()
            While Not oneLine Is Nothing
                m = regLine.Match(oneLine)
                If m.Success Then
                    'linie des Prozessfortschrittes der Lame-Ausgabe
                    percentDone = CType(m.Groups.Item(3).Value, Integer)
                    RaiseEvent Progress(New LameProgress(m))
                Else
                    ' nicht benoetigt
                    RaiseEvent IgnoredLine(oneLine)
                End If
                'nächste Zeile lesen
                oneLine = lameProcess.StandardError.ReadLine()
            End While
            'whatever happened .. when we get here we dont need the process 
            ' anymore
            lameProcess.Close()
            lameProcess = Nothing
 
            If percentDone = 100 Then
                'Lame ist fertig
                RaiseEvent Done()
            Else
                'Fehler ist beim Convertieren aufgetreten
                RaiseEvent Canceled()
            End If
 
            'Catch tex As Threading.ThreadAbortException
 
        Catch ex As Exception
            'soll nicht auftreten
            If Not lameProcess Is Nothing Then
                lameProcess.Close()
                lameProcess = Nothing
            End If
            MsgBox(ex.Message)
        Finally
            isRunning = False
        End Try
 
    End Sub
    Public Sub Cancel()
        Try
            If Not lameProcess Is Nothing Then
                lameProcess.Kill()
            End If
        Catch ex As Exception
 
        End Try
    End Sub
 
End Class