scatter name oCompare lnMembers = amembers(aObjMember,oCompare) llMisMatch = .f. for ix = 1 to lnMembers if eval("oCompare."+ aObjMember[ix]) # eval("m."+ aObjMember[ix]) llMisMatch = .t. messagebox(aObjMember[ix] + " mismatch") endif endforIf it was not memvar but another object (then Gather name objname) then compobj(oBefore,oCompare) would be a shorcut.