>... > 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 :-)