Dim t1 as new Threading.Thread (AddressOf(Zeichnen1))
Dim t2 as new Threading.Thread (AddressOf(Zeichnen2))
t1.start() ' oder so ähnlich wie gesagt: kann nich testen ..
t2.start()
Sub Zeichnen1
 .. mach was
End Sub
Sub Zeichnen2
 .. mach noch etwas
End Sub