Private Sub Test()
        myWorker(3, "abc", "def")
    End Sub
 
    Private Sub myWorker(ByVal x As Integer, ByVal arg1 As String, ByVal arg2 _
      As String)
        For i = 1 To x
            Dim msh As New my_subhandler(AddressOf my_sub)
            msh.BeginInvoke(arg1, arg2, AddressOf threadEnded, i)
        Next
    End Sub
 
    Private Delegate Sub my_subhandler(ByVal arg1 As String, ByVal arg2 As _
      String)
 
    Private Sub my_sub(ByVal arg1 As String, ByVal arg2 As String)
        Debug.WriteLine("Thread started: " _
        & System.Threading.Thread.CurrentThread.ManagedThreadId.ToString() _
        & " " & arg1 & " " & arg2)
        System.Threading.Thread.Sleep(500)
    End Sub
 
    Private Sub threadEnded(ByVal iar As IAsyncResult)
        Debug.WriteLine("Thread ended: " & CInt(iar.AsyncState).ToString())
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist