Impossible de cette facon ! Il faudra utiliser la typeLib "tlbInf" pour ce faire.
Dans ton projet, ajoute la dll TLBINF32.dll (elle est dans le dossier System32 de windows) au référence de ton projet. Puis utilises ce bout de code ...
Dim IFaceInfo As TLI.InterfaceInfo Dim sResults As TLI.SearchResults Dim sItem As TLI.SearchItem Set IFaceInfo = TLI.InterfaceInfoFromObject(Command1) ' <- On donne l'objet dont on veut les propriétés en argument : ici, un bouton sur la form. Set sResults = IFaceInfo.Members.GetFilteredMembers
For Each sItem In sResults If sItem.InvokeKinds <> INVOKE_FUNC Then MsgBox sItem.Name End If Next
|