Gracias Meta pero ya lo tengo solucionado, quedó asi:
Private Sub HScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar1.ValueChanged
BufferOut(0) = 0
BufferOut(3) = HScrollBar1.Value
hidWriteEx(VendorID, ProductID, BufferOut(0)) 'envia el buffer completo
End Sub
El problema era que en uno de los ejemplos ponia:
hidWriteEx(VendorID, ProductID, BufferOut(0))
hidWriteEx(VendorID, ProductID, BufferOut(1))
hidWriteEx(VendorID, ProductID, BufferOut(2))
y esa no es la forma de enviar los datos al pic
o sea, no se hace para cada byte.
Private Sub HScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar1.ValueChanged
BufferOut(0) = 0
BufferOut(3) = HScrollBar1.Value
hidWriteEx(VendorID, ProductID, BufferOut(0)) 'envia el buffer completo
End Sub
El problema era que en uno de los ejemplos ponia:
hidWriteEx(VendorID, ProductID, BufferOut(0))
hidWriteEx(VendorID, ProductID, BufferOut(1))
hidWriteEx(VendorID, ProductID, BufferOut(2))
y esa no es la forma de enviar los datos al pic