Private Sub StartThread() Dim MyThread As New Thread(AddressOf MyMethode) MyThread.Start() MyThread.Abort() End Sub