Hi Alan,

>That's the idea, except ResetToDefault() returns the original VFP default value, not necessary the value set in the property sheet at runtime. PEMSTATUS(object,property,0) does the same thing.

I don't follow your description [in my terms the "property sheet" is the properties page set at design time],
but to show that resetToDefault takes the last set value in the inheritance hierarchy and NOT the vfp default:

LOCAL loText, lcStr
loText = createobject("TextBox")
lcStr = TRANSFORM(loText.visible)
loText = createobject("cTxtBoxVisi")
lcStr = lcStr + TRANSFORM(loText.visible)
loText = createobject("cTxtBoxInVisi")
lcStr = lcStr + TRANSFORM(loText.visible)
loText.visible = .t.
lcStr = lcStr + TRANSFORM(loText.visible)
loText.ResetToDefault("Visible")
lcStr = lcStr + TRANSFORM(loText.visible)
WAIT WINDOW lcStr

DEFINE CLASS cTxtBoxInVisi as TextBox
	visible = .f.
enddefine

DEFINE CLASS cTxtBoxVisi as TextBox
enddefine

Where are we miscommunicating ?

rgds

thomas