WITH THIS
 LOCAL mct, lcName
 mct=.PARENT.CONTROLCOUNT

 lcName = "POPCLICK"+ALLTRIM(.Name)
 SET CLASSLIB TO genpopper.vcx
 .PARENT.ADDOBJECT(lcName,'popclick',THIS)
 SET CLASSLIB TO

 .PARENT.&lcName..VISIBLE=.T.
 .PARENT.&lcName..LEFT=.LEFT+.WIDTH
 .PARENT.&lcName..TOP=.TOP
 .PARENT.&lcName..ENABLED=.T.
 .POPNUM=mct+1
ENDWITH