>CLEAR >ON ERROR ? MESSAGE() > >WITH CREATEOBJECT("SuperClass") > .CALL >ENDWITH > >? > >WITH CREATEOBJECT("subClass") > .CALL >ENDWITH >ON ERROR > >DEFINE CLASS subClass as SuperClass > hiddenproperty = 2 > HIDDEN hiddenproperty > >ENDDEFINE > >DEFINE CLASS SuperClass as custom > hiddenproperty = 1 > > PROCEDURE call > ? "SuperClass CALL hiddenproperty IS PUBLIC HERE" > this.hiddenproperty = 3 > ENDPROC >ENDDEFINE >>