Private DoItThread As New System.Threading.Thread(AddressOf DoIt) ' Erstellen 
' eines neuen Threads und festlegen der Methode DoIt() als Zielmethode des 
' Threads.
 
Private Sub DoIt() ' Belastende Methode
 
' Hier der Code, der das Programm im Normallfall nicht mehr reagieren lässt.
 
End Sub

Public Class DoItClass
 
Private MyParam1$ ' Erstellen der Variable MyParam1 von Typ String
Private MyParam2% ' Erstellen der Variable MyParam2 von Typ Integer/Int32
 
Private DoItThread As New System.Threading.Thread(AddressOf StartDoIt) ' 
' Erstellen eines neuen Threads und festlegen der Methode DoIt() als 
' Zielmethode des Threads.
 
Private Sub StartDoIt() ' Die Methode, die beim Start von DoIt() mit Parametern 
' hilft
DoIt(MyParam1$, MyParam2%) ' Starten der belastenden Methode mit Parametern
End If
 
Private Sub DoIt(ByVal Param1$, ByVal Param2%) ' Belastende Methode
 
' Hier der Code, der das Programm im Normallfall nicht mehr reagieren lässt.
 
End Sub
 
End Class

DoItThread.Start()