>>>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
>>>

>>>
>
>Good. Got a copy of code. Beware there is at least one situation that this will fail -> getpem(object, "value") and unfortunately controlsource is a general field.
>>Cetin
>
>Ahem. I mistakenly posted code from an old window. There's one too many lines in there; the line:
>PEMSTATUS(o2,aProps(i),3) = TYPE('uVal') AND;
>
>doesn't belong, it fails for obvious reasons. I misread the use of the '3' parameter.
>
>Cetin, I have tested the code, and it works fine with ControlSource and value. Maybe I'm not understanding your warning... what properties would I have to use ReadExpression and WriteExpression with? (I guess using WriteExpression would get rid of the macro expansion...)

Erik,
Suppose your controls are instantiated and you read "value" property, where control's controlsource is a genfield. There getpem() is N/A and generates error.
Readexpression is slightly different from just reading property. ie: a property might have a setting as =iif(recno()%2=0,"Even","Odd"). If you just read property you would get "Even" or "Odd". OTOH readexpression would get iif(recno()%2=0,"Even","Odd") and writeexpression would write it as is. Especially for grid.dynamic* this is important where expression is evaluated not only in init. To add it to your code you could readexpression() and if it's empty, then getpem, otherwise writeexpression.
Cetin