rofl....rofl....You are making me to laugh.....Your code consists of about 10 lines of which all 10 can be exactly found as those in the docs.
Do you know what a SDK mean...Did you tried to google it....?
If anyone deigns a VB app then all the code used will be specified in the SDK itself...
man i need to save this thread before the mods come and delete the posts...it's so funny