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