Public th As Threading.Thread

   Private Sub MyProzedur()
      ' Hier steht der Code deiner Prozedur, die du ausführen möchtest
   End Sub
 
   Public Sub StarteMyProzedur()
      th = New Threading.Thread(AddressOf MyProzedur)
      th.Start()
   End Sub

th.Abort()

Ralf