''' <summary>
        ''' Einzelner SingleThread ist abgebrochen worden
        ''' </summary>
        ''' <param name="Sender"></param>
        ''' <param name="Obj"></param>
        ''' <remarks></remarks>
        Protected Overridable Sub m_SingleTaskAbborted(ByVal Sender As _
          SingleTaskProcessor, ByVal Obj As T)
            If mDebugMode Then Debug.WriteLine(mThreadName & "::" & _
            "SingleTaskAbborted: " & Obj.ToString)
 
            'Element aus Zwischenliste entfernen...
            SyncLock mSingleThreads
                If mSingleThreads.Contains(Sender) Then mSingleThreads.Remove( _
                  Sender)
                mErrorList.Enqueue(Obj)
            End SyncLock
 
            'Fertigstellung mit Invoke() signalisieren...
            Dim e As New MTP_ThreadEventArgs(Obj, Sender, False)
            OnEvent(Me, CType(e, EventArgs), SingleTaskAbbortedEvent)
 
            mInputListeWaitHandle.Set()
        End Sub
 
        ''' <summary>
        ''' Anzahl der physikalisch vorh. Prozessorkerne
        ''' </summary>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Shared Function GetCPUCount() As Integer
            Dim mc As System.Management.ManagementClass = New _
              System.Management.ManagementClass("Win32_Processor")
            Dim moc As System.Management.ManagementObjectCollection = _
            mc.GetInstances()
            Dim SocketDesignation As String = String.Empty
            Dim PhysCPU As ArrayList = New ArrayList
 
            Dim mo As System.Management.ManagementObject
            For Each mo In moc
                SocketDesignation = mo.Properties( _
                  "SocketDesignation").Value.ToString()
                If Not PhysCPU.Contains(SocketDesignation) Then
                    PhysCPU.Add(SocketDesignation)
                End If
            Next
            Return PhysCPU.Count * System.Environment.ProcessorCount
        End Function