DEFINE CLASS classname AS class NAME = 'classname'the name classname need to be consitent. If not, it's your fault. The only thing is, that it compiles.
>CLEAR > >w = CREATEOBJECT("OptionButton") > >z = CREATEOBJECT("MyOpt2") > >* this hide the VFP baseclass !!! > >x = CREATEOBJECT("OptionButton") > >* this return .F. >? PEMstatus(z.Class,"Newproperty",5) > >y = CREATEOBJECT("MyOpt3") > >* this return .T. NOW !!! >? PEMstatus(z.Class,"Newproperty",5) > >DEFINE CLASS MyOpt2 AS OPTIONBUTTON > NAME = 'OptionButton' > >ENDDEFINE &&MyOpt2 AS OPTIONBUTTON > >DEFINE CLASS MyOpt3 AS OPTIONBUTTON > NAME = 'OptionButton' > > Newproperty = "ghost property" > >ENDDEFINE >