I have been able to programmatically (init within a form) create and display command buttons from table data with the following suggested code:

table ttype
lncount = 0
lnaddcount = 0
lntop = 4
lnleft = 20
scan
lncount = lncount + 1
lnaddcount = lnaddcount + 1
cmdbutton = 'cmdprod' + alltrim(str(lnaddcount))
thisform.Addobject(cmdbutton, "Commandbutton")
with eval("thisform." + cmdbutton)
.visible = .t.
.caption = alltrim(ttype.type)
.top = lntop
.height = 5
.left = lnleft
.width = 25
endwith
if lncount = 4
lncount = 0
lntop = lntop + 7
lnleft = 20
else
lnleft = lnleft + 35
endif
endscan

The buttons display on the form, but I have not been able to successfully assign a click procedure to each button. Clicking on a button does nothing. Any help or coding suggestions will be appreciated.