Private Sub xxx
        dvc.Read(AddressOf rcb)
    End Sub
 
    Private Sub rcb(ByVal data As HIDLibrary.HidDeviceData)
        ' was immer
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist