FUNCTION CopyProp LPARA o1, o2 IF TYPE('o1.Name') <> "C" OR TYPE('o2.Name') <> "C" RETURN .F. ENDIF AMEMBERS(aProps, o1) FOR i = 1 TO ALEN(aProps) IF !ALLTRIM(UPPER(aProps(i)))$"CLASS:PARENTCLASS:BASECLASS:NAME" uVal = GETPEM(o1,aProps(i)) IF PEMSTATUS(o2,aProps(i),5) AND; !PEMSTATUS(o2,aProps(i),1) AND; PEMSTATUS(o2,aProps(i),3) = TYPE('uVal') AND; !PEMSTATUS(o2,aProps(i),2) o2.&aProps(i) = uVal ENDIF ENDIF ENDFORthanks for our help, Cetin and Jim. This is going to open a couple of doors in my framework.