判断2个对象变量释放指向同一对象的方法是使用Is操作符，代码如下：

If obj1 Is obj2 Then ...

但当2个对象是同一类型时，或者指向同一个二级接口时，我们就可以利用ObjPtr（）函数对代码进行一些优化处理：

If ObjPtr(obj1) = ObjPtr(obj2) Then ...

后者的执行速度将比前种方法快40%多。但是请注意，2种方法原本就是很有效率的，只有在时间要求非常严格的上百成千次的循环中，才会体现出这种差别。