CLEAR _SCREEN.ADDOBJECT('ix','mytext') _SCREEN.ix.VISIBLE= .T. SET STEP ON =_SCREEN.ix.WIDTH ?_SCREEN.ix.gncount _SCREEN.ix.gncount=0 _SCREEN.ix.VISIBLE= .f. =_SCREEN.ix.WIDTH ?_SCREEN.ix.gncount _SCREEN.REMOVEOBJECT('Ix') DEFINE CLASS mytext AS TEXTBOX HEIGHT = 23 WIDTH = 100 NAME = "mytext" gncount = 0 PROCEDURE width_access RETURN THIS.WIDTH ENDPROC PROCEDURE width_assign LPARAMETERS vNewVal THIS.WIDTH = m.vNewVal ENDPROC PROCEDURE visible_access THIS.gncount = THIS.gncount + 1 RETURN THIS.VISIBLE ENDPROC PROCEDURE visible_assign LPARAMETERS vNewVal THIS.VISIBLE = m.vNewVal ENDPROC ENDDEFINE * *-- EndDefine: mytext **************************************************Update: