''' <summary>
        ''' Anzahl der momentan laufenden Tasks
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks>Nicht die Anzahl der wartenden Elemente!</remarks>
        Public ReadOnly Property RunningTaskCount() As Integer
            Get
                Dim n As Integer
                SyncLock Me
                    n = mSingleThreads.Count
                End SyncLock
 
                Return n
            End Get
        End Property
        ''' <summary>
        ''' Anzahl der parallel laufenden Threads
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public ReadOnly Property SingleTaskCount() As Integer
            Get
                Return mAnzTasks
            End Get
        End Property
        ''' <summary>
        ''' Anzahl der Elemente in der Eingangsliste
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public ReadOnly Property InputListCount() As Integer
            Get
                Return mInputList.Count
            End Get
        End Property
        ''' <summary>
        ''' Anzahl der Elemente in der Ausgabeliste
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public ReadOnly Property OutputListCount() As Integer
            Get
                Return mOutputList.Count
            End Get
        End Property
        Public ReadOnly Property IsPaused() As Boolean
            Get
                Return mPaused
            End Get
        End Property
        ''' <summary>
        ''' Anzahl der parallel laufenden Tasks
        ''' </summary>
        ''' <value>0 für Automatik</value>
        ''' <returns></returns>
        ''' <remarks>(Automatik entspricht der physikal. Anzahl der 
        ' Prozessorkerne)</remarks>
        Public Property MaxTaskCount() As Integer
            Get
                Return mMaxTaskCount
            End Get
            Set(ByVal value As Integer)
                If value < 0 Then value = 0
                mMaxTaskCount = value
            End Set
        End Property
 
        ''' <summary>
        ''' Hinzufügen eines Tasks
        ''' </summary>
        ''' <param name="Obj"></param>
        ''' <param name="Start">Starten nach dem Einfügen</param>
        ''' <param name="StartTimeout">Wartezeit bevor gestartet wird in ms</param>
        ''' <remarks></remarks>
        Public Overridable Sub AddTask(ByVal Obj As T, Optional ByVal Start As _
          Boolean = False, Optional ByVal StartTimeout As Integer = 0)
            SyncLock Me
                mListClose = False
                If mNoDoubleItems Then
                    If Not mInputList.Contains(Obj) Then mInputList.Enqueue(Obj)
                Else
                    mInputList.Enqueue(Obj)
                End If
                mInputListeWaitHandle.Set()
 
                If Not IsAlive() AndAlso Start AndAlso Not mStartRequested Then
                    mStartRequested = True
                    mStartTimeout = StartTimeout
 
                    Dim StartTimerCallback As New _
                      System.Threading.TimerCallback(AddressOf m_StartDelay)
                    Dim startThread As New Threading.Timer(StartTimerCallback, _
                    Nothing, mStartTimeout, System.Threading.Timeout.Infinite)
                End If
            End SyncLock
        End Sub