This code is a template that I now use for all my Asynchronous processing.
Assumes
I did it to prove to a friend that you could do some Object Oriented stuff with VB and because I needed to show the user around a thousand records from an OS390 using MQSeries(slow) and I didn't want to lock up the application.