Yes i got it. i read the function on the msdn ;)
btw, Its an old post but i can show how turn this in multi-thread application.
Just put the cicle while(true) on a function without parameters and then you "bind" it with thread system function like this:
private sub myflood()
CODE HERE
end sub
meanwhile in the code you got something like this:
dim floodthread as New system.threading.thread(addressof myflood)
when you need to start the code you just run: floodthread.start() and .abort() to well abort xD