ObjPtr函數的一個最簡單但是卻最有效的用途就是提供快速尋找集合中對象的關鍵字。假設有一個對象集合，它沒有可以當做關鍵字以從集合中取回的屬性。那麼，我們就可以使用ObjPtr函數的返回值作為集合中的關鍵字：
DimcolAsNewCollection
DimobjAsCPerson
'創建新的CPerson對象，並添加到集合中
Setobj=NewCPerson
obj.Name="JohnSmith"
col.Addobj,CStr(ObjPtr(obj))'關鍵字必須是字符串
因為任何對象都有一個明確的ObjPtr數值，而且它是不變的，所以，我們可以容易地、快速地從集合中取回它：
'刪除集合中的對象
col.RemoveCStr(ObjPtr(obj))
這個技巧可以適用於任何類型的對象，包括VB中的表單和控件，以及外部對象。
->
