' オブジェクト変数を CommandButton として宣言します。
Private WithEvents cmdObject As CommandButton

Private Sub Form_Load()
   Set cmdObject = Form1.Controls.Add("VB.CommandButton", "cmdOne")
   cmdObject.Visible = True
   cmdObject.Width = 3000
   cmdObject.Caption = "動的 CommandButton"
End Sub

Private Sub cmdObject_Click()
    MsgBox ("これは動的に追加されたコントロールです。")
End Sub

   Set extObject = Form1.Controls.Add("Shell.Explorer.2", "IE")