Hey Malcolm,

There is no This_ASSIGN. But you could do this using This_ACCESS. All you have to do is return the object you want the property to apply to:

FUNCTION This_ACCESS(lcMember)

DO CASE
CASE INLIST(UPPER(lcMember), "FONTNAME","FONTSIZE","FONTBOLD","etc...")
   RETURN This.lblMyLabel
CASE INLIST(UPPER(lcMember), "FORECOLOR","BACKCOLOR","BACKSTYLE","etc...")
   RETURN This.shpMyShape
OTHERWISE
   RETURN This
ENDIF

ENDFUNC

This works if the user is ACCESSing or ASSIGNing a value to the property.

I hope this helps,