Function MainBackGround() As Boolean
 
        tasklist.Add(Threading.Tasks.Task.Factory.StartNew _
            (Function() Background("C:\daten", filelabel)))
 
        tasklist.Add(Threading.Tasks.Task.Factory.StartNew _
            (Function() Background("C:\downloads", filelabel2)))
 
        Threading.Tasks.Task.WaitAll(tasklist(0), tasklist(1))
 
        MsgBox("Alles erledigt")
        Return True
    End Function

   Private Sub btnTasks_Click(sender As Object, _
         e As System.EventArgs) Handles btnTasks.Click
 
        Threading.Tasks.Task.Factory.StartNew(Function() MainBackGround())
   End Sub