Buenas estimados,

Saben necesito de su ayuda, soy nuevo en esto de andar programando y especialmente en este ambiente ( en realidad en todo) y estoy tratando de realizar un programa que me permita llevar a cabo una comunicacion entre un dispositivo electronico Pic y un programa VB. La comunicacion se hace via USB.
Ahora Al realizar una programación para poder comunicarme con mi dispositivo tengo el siguiente problema al hacer correr el programa supuestamente diseñado me arroja el siguiente error:

Error de compilacion:

Variable no definida.

La funcion del programa son dos, la primera es poder conectarse con el dispositivo HID osea mi dispositivo electronico y ademas poder lograr prender un dispositivo led.

Algunas de las consideraciones para poder hacer correr los programas via usb con este tipo de dispositivo es utilizar un dll. el cual tiene por nombre hidterm.dll y otro archivo hidtermo.ocx...

Amigos espero puedan extenderme una mano ya que llevo 3 dias analizando que es lo que puede estar mal y no encuentro solución, Saludos y atento a sus comentarios.

Adjunto el programa para que puedan Analizarlo

Option Explicit


Código PHP:
Private Sub Conectar_Click()
    If 
HIDTerminal1.HID_Detected True Then Exit Sub
       HIDTerminal1
.HID_VendorID HIDTerminal1.dec4(Text2)
       
HIDTerminal1.HID_ProductID HIDTerminla1.dec4(Text3)
    If 
HIDTerminal1.HID_VendorID Or HIDTermianl1.HID_VendorID 65535 Or HIDTermianl.HID_ProductID Or HIDTerminal1.HIDTerminal1.HID_ProducID 65535 Then Exit Sub
        Call HIDTermianl1
.HIDConnect
    
If HIDTerminal1.HID_Detected False Then
        printline 
"HID (VendorID:" HIDTerminal1.hex4(HIDTerminal1.HID_VendorID) + ";ProductID:" HIDTerminal1.hex4(HIDTerminal1.HID_ProductID) + ") no ha sido detectado el dispositivo ....."
        
printline ""
    
Else
        
printline "HID detected!"
        
printline "VendorID: " HIDTerminal1.hex4(HIDTerminal1.HID_VendorID)
        
printline "ProductID: " HIDTerminal1.hex4(HIDTerminal1.HID_ProducID)
        
printline "ManufacturerString: " HIDTerminal1.HID_ManufacturerString
        printline 
"productString: " HIDTerminal1.HID_productString
        printline 
"SerialNumberString: " HIDTerminal1.HID_SerialNumberString
        printline 
"VersionNumber: " HIDTerminal1.hex4(HIDTerminal1.HID_VersionNumber)
        
printline "InputReportLength: " Trim(Str(HIDTermianl1.HID_InputReportLength))
        
printline "OutputReportLength: " Trim(Str(HIDTermianl1.HID_OutputReportLength))
        
printline "FeatureReportLength: " Trim(Str(HIDTerminal1.HID_FeatureReportLength))
        
printline ""
    
End If
End Sub

Private Sub Encender_Click()
Dim data(7) As Byte
Dim result 
As Boolean
If HIDTerminal1.HID_Detected False Then Exit Sub
data
(1) = 10
result 
HIDTerminal1.HIDSendreport(data(0), data(1), data(2), data(3), data(4), data(5), data(6), data(7))
End Sub

Private Sub Form_Load()

End Sub

Private Sub printline(ByVal inputline As String)
    
board.Text board.Text inputline vbCrLf
    board
.SelStart 1000000
End Sub