Thanks for responding Marcia with the new updates. I have 3 problems.

Firstly the line as suggested by you for AMEMBERS() does not work for me (V6s5).

Secondly I have a lot of error messages when a lot of properties that cannot be touched are touched (like readonly properties).

Thirdly, the custom class idea is defeated (this simple header class just had fontbold = .T.) as the properties are restored later the fontbold = .T. changes back to .F.

My code follows:

			IF loObj.BASECLASS = 'Header'
				*** Save the changed properties
				lnProps = AMEMBERS(laProps, loObj, 1)

				DIMENSION laVals[lnProps]

				FOR lnCnt = 1 TO lnProps
					laVals[lnCnt] = EVALUATE('loObj.' + laProps[lnCnt])
				ENDFOR


				lcName = loObj.NAME

				loColumn.REMOVEOBJECT(lcName)
				loColumn.ADDOBJECT(lcName + "_new", THIS.cHeaderClass)

				loHeader = EVALUATE("loColumn." + ALLTRIM(lcName) + "_new")
				loHeader.NAME = lcName


				*** Restore the changed properties
				FOR lnCnt = 1 TO lnProps
					lcProp = 'loHeader.' + laProps[lnCnt]
					&lcProp = laVals[lnCnt]
				ENDFOR
				
				
				EXIT
			ENDIF

Please advise.