Sub JoinThreads()
        Dim Thread As New System.Threading.Thread(AddressOf SomeTask)
        Thread.Start()
        'Thread.Join()         ' Warten, bis der Thread beendet ist. 
        'MsgBox("Thread ist beendet")
        Thread.Sleep(100)
        For i As Byte = 1 To 10
            handy1(i)
        Next
        zeichnen(10)
End Sub
 
 Sub SomeTask()
        Dim form As New Handy
        form.Show()
 End Sub