Public Overridable Sub Abort()
            If Not mThread Is Nothing Then
                Dim Ex As Boolean = False
                TaskAbbortRequest(Ex)
                If Not Ex Then
                    mThread.Abort()
                    TaskAbborted()
                End If
            End If
        End Sub
        ''' <summary>
        ''' Haupt-Thread läuft oder ist abgebrochen
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks>wenn HauptThread auf Pause steht ist Klasse immer noch 
        ' aktiv!</remarks>
        Public Overridable Function IsAlive() As Boolean
            If mThread Is Nothing Then Return False
            Return Not mIsCompleted
        End Function
        ''' <summary>
        ''' Aufgabe(n) wurden abgeschlossen
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Overridable ReadOnly Property IsCompleted() As Boolean
            Get
                SyncLock Me
                    Return mIsCompleted
                End SyncLock
            End Get
        End Property
        ''' <summary>
        ''' gesamte Ausführung abbrechen
        ''' </summary>
        ''' <remarks>"Soft"-Abbruch, Input-Liste wird angehalten</remarks>
        Public Overridable Sub RequestStop()
            SyncLock Me
                mRequestStop = True
                If mDebugMode Then Debug.WriteLine(mThreadName & "::" & "Stop" & _
                  "Requested")
            End SyncLock
        End Sub
 
        ''' <summary>
        ''' Hier wird die Hauptaufgabe durchgeführt, die in einem seperaten 
        ' Thread läuft
        ''' </summary>
        ''' <remarks></remarks>
        Protected Overridable Sub m_DoTask()
            Try
                Dim bCancel As Boolean = False
 
                '(Hier kann ein Abbruch nochmals erfolgen, bevor irgendetwas 
                ' gestartet wird)
                TaskStart(bCancel) '(muss in abgeleiteter Klasse überschrieben 
                ' werden))
 
                If Not bCancel Then
                    mStartTime = Now
                    DoTask() '(DoTask() muss in abgeleiteter Klasse 
                    ' überschrieben werden)
                    mWorkTime = DateTime.Now.Subtract(mStartTime)
                End If
            Catch ex As Exception
                Debug.WriteLine( _
                  System.Reflection.MethodInfo.GetCurrentMethod.DeclaringType.N_
                  ame & "-" & _
                  System.Reflection.MethodBase.GetCurrentMethod.Name & "::" & _
                  mThreadName & ": " & ex.Message)
            Finally
                mIsCompleted = True
                mRequestStop = True
 
                'Fertigstellung signalisieren...
                WorkCompleted()
 
                'nach Außen Fertigstellung signalisieren...
                mAutoResetEvent.Set()
            End Try
        End Sub
        Protected Overridable Sub m_Reset()
            Try
                Dim i As Integer
                If mDebugMode Then Debug.WriteLine(mThreadName & "::" & "Reset")
 
                If IsAlive() Then
                    RequestStop()
                    Do While IsAlive()
                        Application.DoEvents()
                        i += 1
                        If i = 10 Then
                            Abort()
                            Exit Do
                        End If
                    Loop
                End If
 
                If IsAlive() Then Exit Sub
 
                mThread = New System.Threading.Thread(AddressOf m_DoTask)
                With mThread
                    .IsBackground = mIsBackground
                    .Name = mThreadName
                End With
                mIsCompleted = False
                mRequestStop = False
                mAutoResetEvent.Reset()
            Catch ex As Exception
                Debug.WriteLine( _
                  System.Reflection.MethodInfo.GetCurrentMethod.DeclaringType.N_
                  ame & "-" & _
                  System.Reflection.MethodBase.GetCurrentMethod.Name & "::" & _
                  mThreadName & ": " & ex.Message)
            End Try
        End Sub