'Die GUID aus dem Geräte-Manager:
    Dim Class_GUID_Mouse As New Guid("{745a17a0-74d3-11d0-b6fe-00a0c90f57da}")
 
'...
 
    hDevInfoI = SetupDiGetClassDevs(Nothing, 0, IntPtr.Zero, _
      DEVICEFLAGS.DIGCF_PRESENT Or DEVICEFLAGS.DIGCF_DEVICEINTERFACE)
 
    retValue = SetupDiEnumDeviceInterfaces(hDevInfoI, Nothing, _
      Class_GUID_Mouse, i, DIDI)
    SE = Err.LastDllError