does anyone know the source code to open the USB port in VB.6 ??