can u add code to objects created on the fly?

For example if i run the following code then i want to run some code if a command icon is clicked.

Static X As Integer
X = X + 1
Set Commandbject = Me.Controls.Add("VB.CommandButton", "CommandButton" & X)
With CommandObject
.Caption = "Name"
.Top = 500
.Left = 500
.Height = 500
.Width = 500
.Visible = True
End With