>I have been trying to add command buttons to a form on the fly. I have the command button names in a table and want the form to create the buttons.
>Problem: How do I tell the click event what I want it to do. I am trying to do this inside the form and it will not allow me to set information to the click. Any ideas?
>Thanks

Michael,
Define a command button that'd call an external program. ie:

*Add button on the fly
thisform.NewObject('onthefly','myCommandButton','mybutton.prg')
with thisform.onthefly
  .tag = sys(2015)
  set textmerge to (.tag+'.prg') noshow
  set textmerge on
    \lparameters toForm
    \wait window toForm.Name
  set textmerge to
  set textmerge off
  compile (.tag+'.prg')
endwith

* MyButton.prg
define class myCommandButton as CommandButton
procedure Click
 do (this.tag) with thisform
endproc
procedure destroy
 erase (this.tag+'.*')
endproc
enddefine

Cetin