>By principle I don't open zip files from public forums, so I can't comment on your solution. This is code I use in more or less all my base classes, with it I can simply add a property on the fly by specifying it. Like myform.mavalue = 10.
>
>

>   Function This_Access(tcMember)
>      If ! Pemstatus(This, tcMember, 5)
>         This.AddProperty(tcMember, Null)
>      Endif
>      Return This
>   Endfunc
>

I took a look at _(). That is what he uses.