PROCEDURE main
>
>PUBLIC goSettings
>
>goSettings = CREATEOBJECT('settings')
>
>ENDPROC
>
>DEFINE CLASS settings AS CUSTOM
>....
>ENDDEFINE
***goSettings.This_Access() >lparam tcMember >if !pemstatus(this, tcMember, 5) > this.AddProperty(tcMember) >endif >return thisThanks,