tasklist.Add(Task.Factory.StartNew(Sub()
                                              RunTask1()
                                          End Sub))
       tasklist.Add(Task.Factory.StartNew(Sub()
                                              RunTask1()
                                          End Sub))
'alles fertig - Prog beenden
end

Dim finalTask As Task = Task.Factory.ContinueWhenAll(tasklist.ToArray(),
                                                 Sub()
                                                     End
                                                 End Sub)
finalTask.Wait()

Joachim