This Is from a textbox lostfocus event
WITH THIS
LOCAL mct
mct=.PARENT.CONTROLCOUNT

SET CLASSLIB TO genpopper.vcx
.PARENT.ADDOBJECT('POPCLICK'+ALLT(.NAME),'popclick',THIS)
SET CLASSLIB TO

.PARENT.CONTROLS(mct+1).VISIBLE=.T.
.PARENT.CONTROLS(mct+1).LEFT=.LEFT+.WIDTH
.PARENT.CONTROLS(mct+1).TOP=.TOP
.PARENT.CONTROLS(mct+1).ENABLED=.T.
.POPNUM=mct+1
ENDWITH

Any better idea instead using Controls number ??


TIA :)