Protected Overrides Sub DoTask()
'...
            Loop Until mRequestStop
 
            'Warten, bis alle SingleThreads fertig...
            'mWaitingForExit = True
 
            Dim Anz As Integer
            Do
                If mDebugMode Then Debug.WriteLine("Warte auf Beenden...")
                mInputListeWaitHandle.WaitOne()
                If mDebugMode Then Debug.WriteLine("Es geht weiter......")
                SyncLock mSingleThreads
                    Anz = mSingleThreads.Count
                    If mDebugMode Then Debug.WriteLine(Anz.ToString & " offene" & _
                      "Threads")
                End SyncLock
            Loop Until Anz = 0
        End Sub