ObjPtr函數(shù)的一個最簡單但是卻最有效的用途就是提供快速尋找集合中對象的關(guān)鍵字。假設有一個對象集合，它沒有可以當做關(guān)鍵字以從集合中取回的屬性。那么，我們就可以使用ObjPtr函數(shù)的返回值作為集合中的關(guān)鍵字：

DimcolAsNewCollection

DimobjAsCPerson

'創(chuàng)建新的CPerson對象，并添加到集合中

Setobj=NewCPerson

obj.Name="JohnSmith"

col.Addobj,CStr(ObjPtr(obj))'關(guān)鍵字必須是字符串

因為任何對象都有一個明確的ObjPtr數(shù)值，而且它是不變的，所以，我們可以容易地、快速地從集合中取回它：

'刪除集合中的對象

col.RemoveCStr(ObjPtr(obj))

這個技巧可以適用于任何類型的對象，包括VB中的表單和控件，以及外部對象。