Private MyThread As System.Threading.Thread ' Für alle Subs/Functions 
' zugänglich machen
 
Private Sub StartThread()
MyThread=New System.Threading.Thread(AddressOf ThreadSub)
MyThread.Start()
End Sub
 
Private Sub ThreadSub() ' Kann auch Function sein oder was du halt brauchst
' Mein Threadcode; was soll ich machen?
MyThread.Abort()
End Sub

' Thread wie oben, jedoch die Thredsub anders:
Private Sub ThreadSub()
Do while True
' Mein Code
Loop
MyThread.Abort()
End Sub