Command Button at runtime

I designed a button at runtime, but I do nothing when clicked. The sub Object_Click() doesn't work.

Example.
Dim padd as Control

Private ToggleButton1_Click()

Set padd = Controls.Add("Forms.CommandButton.1", "CommandButton3", Visible)
padd.Left = 10
padd.Top = 285
padd.Width = 35
padd.Height = 24
padd.Caption = "Add"

End Sub

Here every thing is fine

The click sub should be as follow or I'm wrong.

Private Sub padd_Click()
msgbox "this click is OK"
End Sub

Thanks for your time and attention.

Michael Cervantes

[Alex]

Michael,

Maybe you should declare it as

Dim WithEvents padd As Control

Haven't tried it myself but could be worth a try...

Nope. It didn't work.

Message:

Run-Time Error 459

Object or class does support the set of events.

Thanks.

Ok. I make it works with your help of course.

Dim WithEvents padd as CommandButton

Thanks a lot.

Best regards