SYYYYYYY,
, gran ejemplo Seba, "IIDFromString" me facilitó las declaraciones
Option Explicit
Private Declare Function IIDFromString Lib "ole32" (ByVal lpsz As Long, ByRef lpiid As GUID) As Long
Private Declare Function SetupDiGetClassDevs Lib "setupapi.dll" Alias "SetupDiGetClassDevsA" (ByVal ClassGuid As Long, ByVal Enumerator As Long, ByVal HwndParent As Long, ByVal flags As Long) As Long
Private Declare Function SetupDiDestroyDeviceInfoList Lib "setupapi.dll" (ByVal DeviceInfoSet As Long) As Long
Private Type GUID
Data1 As Long: Data2 As Integer: Data3 As Integer: Data4(7) As Byte
End Type
Private Sub Form_Load()
Me.AutoRedraw = True
Dim TGUID As GUID
Call IIDFromString(StrPtr("{53F5630A-B6BF-11D0-94F2-00A0C91EFB8B}"), TGUID)
Form1.Print TGUID.Data1
Form1.Print TGUID.Data4(7)
Dim hDev As Long
hDev = SetupDiGetClassDevs(VarPtr(TGUID), 0, 0, 18)
Form1.Print
Form1.Print hDev
Call SetupDiDestroyDeviceInfoList(hDev)
End Sub
Gracias Seba !!!!