Private Declare Function GetLastError Lib "kernel32.dll" () As Int32
    Private Declare Function SetupDiEnumDeviceInfo Lib "setupapi.dll" (ByVal _
      DeviceInfoSet As Int32, ByVal MemberIndex As Int32, _
        ByRef DeviceInfoData As DeviceInfoData) As Boolean
    Private Declare Function SetupDiDestroyDeviceInfoList Lib "setupapi.dll" ( _
      ByRef DeviceInfoSet As Int32) As Int32
    Private Declare Function SetupDiGetClassDevs Lib "setupapi.dll" Alias _
    "SetupDiGetClassDevsA" (ByRef ClassGuid As Guid, ByVal _
        Enumerator As String, ByVal hwndParent As Int32, ByVal Flags As Int32) _
        As Long
    Private Declare Function SetupDiEnumDeviceInterfaces Lib "setupapi.dll" ( _
    ByRef DeviceInfoSet As Int32, ByRef DeviceInfoData As _
        DeviceInfoData, ByVal ByRefterfaceClassGuid As Guid, ByVal MemberIndex _
        As Integer, ByRef DeviceInterfaceData As DeviceInterfaceData) As Integer
 
    Private Declare Function SetupDiGetDeviceInterfaceDetail Lib "setupapi.dll" _
      Alias "SetupDiGetDeviceInterfaceDetailA" (ByRef _
        DeviceInfoSet As Int32, ByRef DeviceInterfaceData As _
        DeviceInterfaceData, ByRef DeviceInterfaceDetailData As _
        DeviceInterfaceDetailData, ByVal unused1 As Integer, _
        ByRef RequiredSize As Int32, ByRef unused3 As Integer) As Int32
    Private Declare Function SetupDiGetDeviceInterfaceDetail Lib "setupapi.dll" _
      Alias "SetupDiGetDeviceInterfaceDetailA" (ByRef _
            DeviceInfoSet As Int32, ByRef DeviceInterfaceData As _
            DeviceInterfaceData, ByRef DeviceInterfaceDetailData As Integer, _
            ByVal unused1 As Integer, _
            ByRef RequiredSize As Int32, ByRef unused3 As Integer) As Int32
    Private Declare Sub HidD_GetHidGuid Lib "hid.dll" Alias "HidD_GetHidGuid" ( _
      ByRef hid_guid As System.Guid)
 
    Private Const DIGCF_DEVICEINTERFACE As Int32 = &H10
    Private Const DIGCF_PRESENT As Int32 = &H2
 
    <Runtime.InteropServices.StructLayout( _
      Runtime.InteropServices.LayoutKind.Sequential)> Private Structure _
      DeviceInterfaceDetailData
        Public Size As Integer
 
        '[MarshalAs(UnmanagedType.ByValTStr, SizeConst = 256)]
        Public DevicePath As String
    End Structure
 
    <Runtime.InteropServices.StructLayout( _
      Runtime.InteropServices.LayoutKind.Sequential)> Private Structure _
      DeviceInfoData
        Public Size As Integer
        Public Classs As Guid
        Public DevInstas As Integer
        Public Reserved As Integer
    End Structure
 
    <Runtime.InteropServices.StructLayout( _
      Runtime.InteropServices.LayoutKind.Sequential)> Private Structure _
      DeviceInterfaceData
        Public Size As Integer
        Public Classs As Guid
        Public Flags As Integer
        Public Reserved As Integer
    End Structure

Wer fr?her stirbt ist l?nger tot!