Assigning an OnClick procedure to a dynamic CommandButton with VBA

[TexMurphy]

I would like to create a macro within a UserForm that would create a CommandButton with a certain caption and assigns an OnClick event to it. I cannot figure out how to assign the macro . It should look like something like this. I would appreciate any ideas how to go about this.

Private Result as String
-----------------------------
Sub VytvorForumular()
Dim NewButton As OLEObject
Set CmdBtn = ButtonForm.Controls.Add("Forms.CommandButton.1")
With CmdBtn
.Caption = "Value1"
.onclick = SaveSelInVariable(.Caption) 'This is the part I cannot figure out - I just made this syntax up
End With
end sub
---------------------------
Sub SaveSelInVariable (SelValue as String)
Result = SelValue
end sub

[MrChulo]

Hi,

Using a quick google search I found that the it should be .onAction instead of .onclick

https://stackoverflow.com/questions/...n-vba/31684761

Does this help?

[TexMurphy]

Thanks for the reply. Using .OnAction does not work. I keep receiving compile errors. :-(

[Artik]

Do you want to create the button at runtime (i.e., when the UserForm is already loaded), or in design mode (i.e., before you run your code)?

Artik

[Croweater]

Does this help?

http://www.vbaexpress.com/kb/getarticle.php?kb_id=228

[rorya]

Buttons on a form do not have an onaction or onclick. If you need to create them at runtime, you can use a class with a WithEvents variable to handle (most of) its events. There are many examples in this forum.