>Senna,
>
>try soemthing like this;
>
>
>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
>
Or better still, using EVAL().
LOCAL lcName
lcName = "POPCLICK"+ALLTRIM(THIS.Name)
SET CLASSLIB TO genpopper.vcx
THIS.PARENT.ADDOBJECT(lcName ,'popclick', THIS)
SET CLASSLIB TO
WITH EVAL( "THIS.parent." + lcName )
.VISIBLE=.T.
.LEFT=.LEFT+.WIDTH
.TOP=.TOP
.ENABLED=.T.
ENDWITH
