Private Sub Form_Activate()
    UsbInit
    UsbSetDebug (255)
   
End Sub

Private Sub Command2_Click()
Dim my_handle
                      my_handle = UsbOpen(0, &HD55, &H20)
                      If my_handle = 0 Then MsgBox " No such device "
                      Text1 = my_handle
End Sub

Private Sub Command3_Click()
UsbBulkWrite my_handle, 1, 10, 512, 5000

Private Sub Command3_Click()
UsbBulkWrite UsbOpen(0, &HD55, &H20), 1, 10, 512, 5000