Public Class TestClass
        Inherits MultiTaskProcessor(Of String)
 
        Protected Overrides Sub DoWork(ByVal Obj As String)
            Debug.WriteLine("verarbeite: " & Obj)
 
            'Irgendwas sollte hier gemacht werden!
            System.Threading.Thread.Sleep(300)
 
        End Sub
        Protected Overrides Sub WorkCompleted()
            MyBase.WorkCompleted()
            Debug.WriteLine("TestClass::WorkCompleted")
            Debug.WriteLine(mWorkTime.TotalSeconds.ToString & " s gebraucht")
        End Sub
        Protected Overrides Sub TaskAbborted()
            MyBase.TaskAbborted()
            Debug.WriteLine("TestClass::Abborted")
        End Sub
        Protected Overloads Overrides Sub TaskStart(ByRef Cancel As Boolean)
            MyBase.TaskStart(Cancel)
            Debug.WriteLine("TestClass::StartTask")
        End Sub
        Protected Overrides Sub TaskAbbortRequest(ByRef Cancel As Boolean)
            MyBase.TaskAbbortRequest(Cancel)
            Debug.WriteLine("TestClass::AbbortRequest")
        End Sub
    End Class
 
    Public Sub TestMultiCore()
        Dim m As New TestClass
 
        With m
            .IsBackground = True
            .MaxTaskCount = 0
            '.DebugMode = True
 
            'ein Objekt einfügen und direkt danach schon starten...
            .AddTask("String000", True, 0)
 
            'weitere Elemente einfügen...
            For i As Integer = 1 To 99
                .AddTask("String" & i.ToString("000"))
            Next i
            '(Liste jetzt bekommt keine Elemente mehr)
            .CloseList()
 
            'Starten (sollte ignoriert werden, da bereits vor der Schleife 
            ' gestartet werden sollte)
            .Start()
        End With
    End Sub