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

DimcolAsNewCollection

DimobjAsCPerson

'創建新的CPerson對象，并添加到集合中

Setobj=NewCPerson

obj.Name="JohnSmith"

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

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

'刪除集合中的對象

col.RemoveCStr(ObjPtr(obj))

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