'Basisklasse
    Public MustInherit Class ThreadWrapperBase
        Implements IDisposable
 
        Protected mThread As System.Threading.Thread = Nothing
        Protected mIsCompleted As Boolean = True
        Protected mRequestStop As Boolean = False
        Protected mAutoResetEvent As New System.Threading.AutoResetEvent(True)
        Protected mIsBackground As Boolean = True
        Protected mThreadName As String
        Protected mDebugMode As Boolean = False
        Protected mStartTime As Date
        Protected mWorkTime As TimeSpan = TimeSpan.Zero
 
        Public Sub New(ByVal ThreadName As String)
            If ThreadName Is Nothing Then
                mThreadName = Guid.NewGuid.ToString
                Return
            End If
            mThreadName = ThreadName
        End Sub
        Public Sub New()
            mThreadName = Guid.NewGuid.ToString
        End Sub
        Public Sub New(ByVal IsBackground As Boolean)
            mIsBackground = IsBackground
            mThreadName = Guid.NewGuid.ToString
        End Sub
        Public Sub New(ByVal IsBackground As Boolean, ByVal ThreadName As _
          String)
            mIsBackground = IsBackground
            If ThreadName Is Nothing Then
                mThreadName = Guid.NewGuid.ToString
                Return
            End If
            mThreadName = ThreadName
        End Sub
        ''' <summary>
        ''' Haupt- und alle SingleThreads laufen als Background-Threads
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks>kann nur geändert werden, wenn Klasse inaktiv</remarks>
        Public Property IsBackground() As Boolean
            Get
                Return mIsBackground
            End Get
            Set(ByVal value As Boolean)
                If Not IsAlive() Then mIsBackground = value
            End Set
        End Property
        ''' <summary>
        ''' AutoResetEvent zum Synchronisieren evt. anderer externer Threads
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public ReadOnly Property AutoResetEvent() As _
          System.Threading.AutoResetEvent
            Get
                Return mAutoResetEvent
            End Get
        End Property
        Public ReadOnly Property ThreadName() As String
            Get
                Return mThreadName
            End Get
        End Property
 
        ''' <summary>
        ''' Debug-Info's für Start etc. ausgeben oder nicht
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Property DebugMode() As Boolean
            Get
                Return mDebugMode
            End Get
            Set(ByVal value As Boolean)
                mDebugMode = value
            End Set
        End Property
 
        ''' <summary>
        ''' Gesamte Zeit zwischen dem Start und der Fertigstellung der Aufgaben 
        ' bzw. Abbruch
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public ReadOnly Property WorkTime() As TimeSpan
            Get
                Return mWorkTime
            End Get
        End Property
 
        Public Overridable Sub Start()
            If mDebugMode Then Debug.WriteLine(mThreadName & "::" & _
              "StartRequested")
            m_Reset()
            mThread.Start() '(muss in abgeleiteter Klasse überschrieben werden)
        End Sub