IF COMPOBJ(loA, loB) IF PEMSTATUS(loA, "Name", 5) lcName = loA.Name loA.Name = "A" + lcName IF loB.Name = "A" + lcName MESSAGEBOX("Both variables reference the same object") ELSE MESSAGEBOX("The variables reference different identical objects") ENDif ELSE MESSAGEBOX("The objects are identical, but test for multiple objects failed") ENDif ELSE MESSAGEBOX("The objects are different") ENDif