dim thd as Threading.Thread Private Sub threadSub() 'Some Code End Sub Private Sub threadLauncher() thd = new Threading.Thread(AddressOf threadSub) thd.Start() End Sub This makes a thread running threadSub, if you want to keep this thread running you should add code like this: While True End While Greetings.... :)

I see.Thinks a lot!

The easiest(if not the only) way is to group them in one TypeLib

csc wrote: I think there are a lot of complete classes here at codeguru. Codeguru? Don't you mean CodeProject? :)