>>... >> 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 :-)
thisform.AddObject(m.lcButtonName,'commandbutton')to:
thisform.NewObject(m.lcButtonName,'mycmdbtn', '<your classlib>')Tamar