Create an "On-Click" procedure progmatically

[mike777]

I've just learned how to create forms and add controls to them via VBA.
Can anyone help me create procedures for the controls?
For example:

Sub Mike()
dim frm as form, ctl as control
set frm=createform
set ctl=createcontrol(frm.name,accommandbutton)
end sub

That all works well for me. What I can't seem to get is then how to create a procedure that runs when the user clicks the command button.

Thanks for any help you can provide.

-Mike

 

[mike777]

oops...I think I just got it.

Sub Mike()
dim frm as form, ctl as control
set frm=createform
set ctl=createcontrol(frm.name,accommandbutton)
frm.module.insertlines [line #], [string]
end sub

Pretty sure that's it.

 

[mike777]

Remarkable. Couldn't be easier.

 

[mike777]

OK, maybe I spoke too soon.
It's working OK, the only problem is, when the code is finished executing the VBA editor is left standing open, and is the selected application window on thedesktop. Weird.
This is true even if I close the VBA editor, and call the procedure from a command button on a form.
Any suggestions?
Thanking you in advance.
-Mike

 

[mike777]

I know you must think I'm crazy answering my own questions. It's OK, I am.
I found it: In the form, where you call the code that adds the code to the class module, enter:

VBE.MainWindow.Visible=False

Works like a charm.
Hope this helps somebody.
-Mike