Option Explicit
Private WithEvents cmdCreated As CommandButton
Private Sub Command1_Click()
Set cmdCreated = Form1.Controls.Add("VB.CommandButton", "cmdCreated")
cmdCreated.Top = 0
cmdCreated.Left = 0
cmdCreated.Caption = "Created"
cmdCreated.Visible = True
End Sub
Private Sub cmdCreated_Click()
MsgBox "cmdCreated event"
End Sub