ObjPtr
返回对象的COM标识地址，作为LongPtr。
语法：ObjPtr( Object )
- Object
- 必需 要获取指针的对象引用。参数作为IUnknown传入。
返回值是对象IUnknown虚表的地址——COM运行时用于测试对象标识的相同值。两个Object变量引用同一实例当且仅当它们的ObjPtr值相等。
该指针仅在底层对象保持活动期间有效；获取ObjPtr不会持有引用。将结果传给需要原始对象地址的API函数，或存储用于标识检查，但不要假设在最后一个引用释放后它仍有意义。
示例
vb
Dim a As Collection
Dim b As Collection
Set a = New Collection
Set b = a
Debug.Print ObjPtr(a) = ObjPtr(b) ' True — same instance.
Set b = New Collection
Debug.Print ObjPtr(a) = ObjPtr(b) ' False — different instances.