Private Const VendorID = 6017
Private Const ProductID = 2000

Check to make sure the vendor & product ID numbers in your VB source match the vendor/product ID #'s in the PIC framework files generated by EasyHID. If these don't match, the VB app will never respond.