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

'程序中引用的是图片中的DLL
'怎样知道程序在运行中实际用到的DLL

那就换一种方法吧！不是太懂！

程序调试状态能执行,编译后执行出错
中断语句在FOR。。这一行吗？
首先考虑程序中引用的DLL是否注册成功（免费用么？），有的在设计调试时可用，运行时就要注册为正式片的。
如果免费使用的话，也许就要看看帮助文档了。