Declare Function GetDeviceError Lib "USB8IO.dll" (ByVal DevNumber As Byte) _
      As Long
    Declare Sub GetDeviceDescriptor Lib "USB8IO.dll" (ByVal DevNumber As Byte, _
    ByVal usbDD As TUSB_DEVICE_DESCRIPTOR)
    Declare Sub SetBootEEP Lib "USB8IO.dll" (ByVal DevNumber As Byte, ByVal _
    EPPType As Byte, ByVal Addr As Byte, ByVal DeviceID As Long)
Public Sub SetCallBackHandles()
  ' Funktions-Pointer an DLL übergeben
  Call SetCallBackHandle(EX0, AddressOf Interrupt_EX0)
  Call SetCallBackHandle(EX1, AddressOf Interrupt_EX1)
End Sub
Public Sub Interrupt_EX1(DevNum As Byte)
  ' CallBack-Routinen für Interruptanwendung
  Int1_Counter = Int1_Counter + 1
  Form1.LblInt1Cnt.Caption = Str(Int1_Counter) + " "
End Sub
Public Sub Interrupt_EX0(DevNum As Byte)
  ' CallBack-Routinen für Interruptanwendung
  Int0_Counter = Int0_Counter + 1
  Form1.LblInt0Cnt.Caption = Str(Int0_Counter) + " "
End Sub

    Declare Function GetDeviceError Lib "USB8IO.dll" (ByVal DevNumber As Byte) _
      As Integer
    'UPGRADE_WARNING: Für die Struktur TUSB_DEVICE_DESCRIPTOR müssen 
    ' Marshalling-Attribute möglicherweise als ein Argument in dieser 
    ' Declare-Anweisung weitergegeben werden. Klicken Sie hier für weitere 
    ' Informationen: 
    ' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="C4" & _
    "9C3A5-5D47-4CD9-8F51-74A1616405DC"'
    Declare Sub GetDeviceDescriptor Lib "USB8IO.dll" (ByVal DevNumber As Byte, _
    ByRef usbDD As TUSB_DEVICE_DESCRIPTOR)
    Declare Sub SetBootEEP Lib "USB8IO.dll" (ByVal DevNumber As Byte, ByVal _
    EPPType As Byte, ByVal Addr As Byte, ByVal DeviceID As Integer)
Public Sub SetCallBackHandles()
        Dim EX1 As Object
        Dim EX0 As Object
        Dim SetCallBackHandle As Object
        ' Funktions-Pointer an DLL übergeben
        'UPGRADE_WARNING: Einen Delegaten für AddressOf Interrupt_EX0 
        ' hinzufügen Klicken Sie hier für weitere Informationen: 
        ' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
        "E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08"'
        Call SetCallBackHandle(EX0, AddressOf Interrupt_EX0)
        'UPGRADE_WARNING: Einen Delegaten für AddressOf Interrupt_EX1 
        ' hinzufügen Klicken Sie hier für weitere Informationen: 
        ' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
        "E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08"'
        Call SetCallBackHandle(EX1, AddressOf Interrupt_EX1)
    End Sub
    Public Sub Interrupt_EX1(ByRef DevNum As Byte)
        Dim Form1 As Object
        Dim Int1_Counter As Object
        ' CallBack-Routinen für Interruptanwendung
        'UPGRADE_WARNING: Die Standardeigenschaft des Objekts Int1_Counter 
        ' konnte nicht aufgelöst werden. Klicken Sie hier für weitere 
        ' Informationen: 
        ' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
        "6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        Int1_Counter = Int1_Counter + 1
        'UPGRADE_WARNING: Die Standardeigenschaft des Objekts Form1.LblInt1Cnt 
        ' konnte nicht aufgelöst werden. Klicken Sie hier für weitere 
        ' Informationen: 
        ' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
        "6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        'UPGRADE_WARNING: Die Standardeigenschaft des Objekts Int1_Counter 
        ' konnte nicht aufgelöst werden. Klicken Sie hier für weitere 
        ' Informationen: 
        ' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
        "6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        Form1.LblInt1Cnt.Caption = Str(Int1_Counter) & " "
    End Sub
    Public Sub Interrupt_EX0(ByRef DevNum As Byte)
        Dim Form1 As Object
        Dim Int0_Counter As Object
        ' CallBack-Routinen für Interruptanwendung
        'UPGRADE_WARNING: Die Standardeigenschaft des Objekts Int0_Counter 
        ' konnte nicht aufgelöst werden. Klicken Sie hier für weitere 
        ' Informationen: 
        ' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
        "6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        Int0_Counter = Int0_Counter + 1
        'UPGRADE_WARNING: Die Standardeigenschaft des Objekts Form1.LblInt0Cnt 
        ' konnte nicht aufgelöst werden. Klicken Sie hier für weitere 
        ' Informationen: 
        ' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
        "6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        'UPGRADE_WARNING: Die Standardeigenschaft des Objekts Int0_Counter 
        ' konnte nicht aufgelöst werden. Klicken Sie hier für weitere 
        ' Informationen: 
        ' 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword=_
        "6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
        Form1.LblInt0Cnt.Caption = Str(Int0_Counter) & " "
    End Sub