程序代码：

Public Function ISARR(OBJ As Object, ARRNAME As String) As Boolean
    '判断对象是否具有某个指定的属性
    '需要引用TypeLib Information

        Dim TEMPVALUE     As Boolean
        Dim TLIA     As New TLIApplication
        Dim member     As MemberInfo
        Dim mInterfaceInfo     As InterfaceInfo

        Set mInterfaceInfo = TLIA.InterfaceInfoFromObject(OBJ)

        TEMPVALUE = False

        For Each member In mInterfaceInfo.Members   '此处理出错,错误提示"对象不支持该操作"
                If member.Name = ARRNAME Then
                        TEMPVALUE = True
                        MsgBox "FIND"
                        Exit For
                End If
        Next
        ISARR = TEMPVALUE
       
End Function