''' <summary>
        ''' Prozedur wird zum verzögerten Starten verwendet
        ''' </summary>
        ''' <remarks></remarks>
        Protected Sub m_StartDelay(ByVal Obj As Object)
            mStartTimeout = 0
            MyBase.Start()
        End Sub
 
        ''' <summary>
        ''' Input- und Output-Warteschlagen/Errorliste löschen
        ''' </summary>
        ''' <remarks>nur möglich, wenn Klasse nicht aktiv!</remarks>
        Public Overridable Sub ClearTaskList()
            If Not IsAlive() Then
                SyncLock Me
                    mInputList.Clear()
                    mErrorList.Clear()
                    mOutputList.Clear()
                    mInputListeWaitHandle.Set()
                End SyncLock
            End If
        End Sub
 
        Public Overridable Sub Pause()
            If mDebugMode Then Debug.WriteLine(mThreadName & "::" & "Pause" & _
              "Requested")
            mInputListeWaitHandle.Set()
            mPauseWaitHandle.Reset()
            mPaused = True
            If mDebugMode Then Debug.WriteLine(mThreadName & "::" & "Pause")
            SyncLock Me
                Dim e As New MTP_ThreadEventArgs(Nothing, Nothing, False)
                OnEvent(Me, CType(e, EventArgs), PausedEvent)
            End SyncLock
        End Sub
        Public Overridable Sub [Continue]()
            If mDebugMode Then Debug.WriteLine(mThreadName & "::" & "Continue" & _
              "Requested")
            mInputListeWaitHandle.Set()
            mPauseWaitHandle.Set()
            mPaused = False
            If mDebugMode Then Debug.WriteLine(mThreadName & "::" & "Continued")
            SyncLock Me
                Dim e As New MTP_ThreadEventArgs(Nothing, Nothing, False)
                OnEvent(Me, CType(e, EventArgs), ContinuedEvent)
            End SyncLock
        End Sub
        Public Overrides Sub RequestStop()
            MyBase.RequestStop()
            mInputListeWaitHandle.Set()
            mPauseWaitHandle.Set()
        End Sub
        Protected Overrides Sub m_Reset()
            MyBase.m_Reset()
            ClearTaskList()
        End Sub
        Public Overrides Sub Start()
            'nur starten, wenn nicht bereits beim Hinzufügen von Elementen ein 
            ' Start angefordert wurde
            If Not mStartRequested Then MyBase.Start()
        End Sub