... with GETPEM(thisform, lcButtonName) ...>
>lnTop = 0 >lnLeft = 0 >FOR i = 1 TO 80 > lcButtonName = 'cmd'+ALLTRIM(STR(i)) > thisform.AddObject(m.lcButtonName,'commandbutton') > with evaluate('thisform.' + m.c) > .Top = m.lnTop > .Left = m.lnLeft > IF i % 3 == 0 > lnTop = lnTop + .Height + 1 > lnLeft = 0 > ELSE > lnLeft = lnLeft + .Width + 2 > ENDIF > .visible = .t. > endwith >next >>Not tested :-)