Sub Tasks()
    Dim tasklist As New List(Of Task)
    tasklist.Add(Task.Run(AddressOf Task1))
    tasklist.Add(Task.Run(AddressOf Task2))
    tasklist.Add(Task.Run(AddressOf Task3))
    Task.WaitAll(tasklist.ToArray)
    MsgBox("Alle Tasks wurden beendet.")
  End Sub