Private Sub Test()
        Try
            Dim t0 As task = task.Factory.StartNew(AddressOf DoIts)
            t0.Wait()
        Catch aex As AggregateException
            MsgBox(aex.Flatten.ToString())
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
 
        Try
            Dim t1 As Task(Of String) = Task.Factory.StartNew(Of String)( _
              AddressOf DoItf)
            Dim res As String = t1.Result
        Catch aex As AggregateException
            MsgBox(aex.Flatten.ToString())
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
 
    End Sub
 
    Public Sub DoIts()
        Dim o As String = Nothing
        Dim res = "Done It! " & o.ToString()
    End Sub
 
    Public Function DoItf() As String
        Dim o As String = Nothing
        Return "Done It! " & o.ToString()
    End Function

    Public Sub Test1()
        Try 
            Dim a0 As New Action(AddressOf DoIts)
            Dim iar As IAsyncResult = a0.BeginInvoke(Nothing, Nothing)
            a0.EndInvoke(iar)         
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    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