Public Class Form1
 
    Dim tasklist As New List(Of Threading.Tasks.Task)
 
    Delegate Sub WriteTextDelegate(ByVal label1 As Label, text As String)
 
    Private Sub WriteText(ByVal lbl As Label, text As String)
        lbl.Text = text
        lbl.Refresh()
    End Sub
 
    Private Sub RunTask1()
        '... do some work
        params(0) = Label2
        params(1) = "Erstelle " & DR("Dateiname")
        Me.Invoke(New WriteTextDelegate(AddressOf WriteText), params)
        Threading.Thread.Sleep(1000)
 
    end Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
 
       tasklist.Add(Task.Factory.StartNew(Sub()
                                              RunTask1()
                                          End Sub))
       tasklist.Add(Task.Factory.StartNew(Sub()
                                              RunTask2()
                                          End Sub))
        Task.WaitAll(tasklist.ToArray())
 
        End
 
    end Sub
End Class

Joachim