COOOLL it works!!!
here is the function I came up with:

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
ENDFOR

thanks for our help, Cetin and Jim. This is going to open a couple of doors in my framework.