Local lnCnr, lnI With Thisform Dimension Thisform.Postit[16] For lnI = 1 To 8 lnCnr = "(" + Transform(lnI)+ ")" .AddObject('Postit'+lnCnr,'edtPostit') .Postit(lnI).Left = 159+(lnI*56) .Postit(lnI).Width = 27 .Postit(lnI).Visible = .T. Endfor EndwithedtPosit.vcx is an container with editbox e.s.o.