Function OpenUSBDevice() As boolean
  dim i as Integer
  dim h as WinHIDMBS
  
  h=FindDevice // see FindFirst example
  
  if h=nil then
    MsgBox "No XYZ device found."
    Return false
  end if
  
  call h.Connect
  
  if h.Lasterror<>0 then
    MsgBox "Failed to connect to USB Device."
    Return false
  end if
  
  Return true
  
End Function

Function FindDevice() As MyWinHIDMBS
  dim h as MyWinHIDMBS
  dim p as string
  
  h=new MyWinHIDMBS // your own subclass of MacHIDMBS so you can get events
  
  if h.FindFirstDevice then
    
    p=h.Product
    if p="MyProduct" then
      Return h
    end if
    
    while h.FindNextDevice
      
      p=h.Product
      if p="MyProduct" then
        Return h
      end if
      
    wend
    
  end if
End Function

dim h as new WinHIDMBS

call h.InstallListener 9 // 8 bytes + Report ID

dim m as WinHIDMBS // your WinHIDMBS object
dim s as string

do
  s=m.PollString
loop until lenb(s)>0 // until we got something
MsgBox midb(s,2) // shows result. First byte is ReportID again

dim m as WinHIDMBS
dim s as string

do
  s=m.ReadMessage(48)
loop until lenb(s)>0 // until we got something
MsgBox midb(s,2) // shows result. First byte is ReportID again

dim m as WinHIDMBS
dim s as memoryblock

do
  s=m.ReadMessageMemory(48)
loop until s<>nil // until we got something
MsgBox midb(s,2) // shows result. First byte is ReportID again

dim m as WinHIDMBS // your hid object
dim s as string
// write 9 bytes report
// first byte is report ID plus 8 byte data
s=chr(0)+"P"+chr(0)+chr(0)+chr(0)+chr(0)+chr(0)+chr(0)+chr(0)
MsgBox "Send bytes: "+str(m.SendMessage(s))