Public ReadOnly Property ErrorList() As T()
            Get
                SyncLock mErrorList
                    Dim L(mErrorList.Count - 1) As T
                    mErrorList.CopyTo(L, 0)
                    Return L
                End SyncLock
            End Get
        End Property
        Public ReadOnly Property OutputList() As T()
            Get
                SyncLock mOutputList
                    Dim L(mOutputList.Count - 1) As T
                    mOutputList.CopyTo(L, 0)
                    Return L
                End SyncLock
            End Get
        End Property
        Public ReadOnly Property InputList() As T()
            Get
                SyncLock mInputList
                    Dim L(mInputList.Count - 1) As T
                    mInputList.CopyTo(L, 0)
                    Return L
                End SyncLock
            End Get
        End Property
 
        ''' <summary>
        ''' Doppelte Einträge in der Input-Liste ausschließen!
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Property NoDoubleListItems() As Boolean
            Get
                SyncLock Me
                    Return mNoDoubleItems
                End SyncLock
            End Get
            Set(ByVal value As Boolean)
                SyncLock Me
                    mNoDoubleItems = value
                End SyncLock
            End Set
        End Property
        ''' <summary>
        ''' Wartezeit zwischen den Eingangselementen
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Property InputListWaitTimeout() As Integer
            Get
                Return mInputListWaitTimeout
            End Get
            Set(ByVal value As Integer)
                If Not IsAlive() Then mInputListWaitTimeout = value
                If value < 0 Then value = 0
            End Set
        End Property
        ''' <summary>
        ''' Wartezeit zwischen den Rückgaben, falls Outputliste eingestellt ist
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Property OutputListWaitTimeout() As Integer
            Get
                Return mOutputListWaitTimeout
            End Get
            Set(ByVal value As Integer)
                SyncLock Me
                    mOutputListWaitTimeout = value
                    If mOutputListWaitTimeout < 0 Then mOutputListWaitTimeout = 0
                End SyncLock
            End Set
        End Property
        ''' <summary>
        ''' Ausgabeliste verwenden
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Property UseOutputList() As Boolean
            Get
                Return mUseOutputList
            End Get
            Set(ByVal value As Boolean)
                If Not IsAlive() Then mUseOutputList = value
            End Set
        End Property
        ''' <summary>
        ''' Liste wird abgeschlossen
        ''' </summary>
        ''' <remarks>Klasse wird beendet, falls alle Elemente der Input-Liste
        ''' aufgebraucht sind.</remarks>
        Public Overridable Sub CloseList()
            SyncLock Me
                mListClose = True
            End SyncLock
            mInputListeWaitHandle.Set()
        End Sub