ник: kot_k_k
нет не катит.
вот нашел нечто - но хз что получится
может пригодится кому, будем копать.
с библиотекой TLBINF32.DLL
Private Sub ListProps(comServer As Object)
Dim IFaceInfo As TLI.InterfaceInfo
Dim mem As TLI.MemberInfo
Set IFaceInfo = TLI.InterfaceInfoFromObject(comServer)
On Error Resume Next
For Each mem In IFaceInfo.Members
If mem.InvokeKind = INVOKE_PROPERTYGET Then
Debug.Print "Property " & mem.Name & " = " & _
TLI.InvokeHook(comServer, mem.MemberId, INVOKE_PROPERTYGET)
End If
Next
End Sub
|
http://www.programmersforum.ru/showthread.php?t=205654