Private Sub cmdPassRef_Click()

   Dim objTestR As New CTestObject, objTestV As New CTestObject
   Dim strMsg As String
   Dim lngAddrR As Long, lngAddrV As Long

   objTestR.Value = 100
   lngAddrR = ObjPtr(objTestR)

   objTestV.Value = 100
   lngAddrV = ObjPtr(objTestV)

   ChangeValue objTestR, objTestV

   strMsg = strMsg & "objTestR" & vbCrLf
   strMsg = strMsg & "   Original Value:   100" & vbCrLf
   strMsg = strMsg & "   New Value:        " & objTestR.Value & vbCrLf
   strMsg = strMsg & "   Original Address: " & lngAddrR & vbCrLf
   strMsg = strMsg & "   New Address:      " & ObjPtr(objTestR) & vbCrLf
   strMsg = strMsg & vbCrLf

   strMsg = strMsg & "objTestV" & vbCrLf
   strMsg = strMsg & "   Original Value:   100" & vbCrLf
   strMsg = strMsg & "   New Value:        " & objTestV.Value & vbCrLf
   strMsg = strMsg & "   Original Address: " & lngAddrV & vbCrLf
   strMsg = strMsg & "   New Address:      " & ObjPtr(objTestV) & vbCrLf
   strMsg = strMsg & vbCrLf

   MsgBox strMsg, vbOKOnly, "Existing References"

End Sub