AddControl 事件、Add 方法示例

下例在运行时间使用 Add 方法将控件添至窗体，并且用 AddControl 事件来确认控件已被添加。

窗体包含：

• 名为 CommandButton1 的命令按钮。
• 名为 Label1 的标签。

Dim Mycmd
Sub UserForm33_CommandButton1_Click()

    Set Mycmd = UserForm33_Controls.Add("Forms.CommandButton.1") 
    UserForm33_Mycmd.Left = 18
    UserForm33_Mycmd.Top = 150
    UserForm33_Mycmd.Width = 175
    UserForm33_Mycmd.Height = 20
    UserForm33_Mycmd.Caption = "非常有趣。" & Mycmd.Name
    
End Sub

Sub UserForm33_AddControl( Control )
    UserForm33_Label1.Caption = "控件已被添加。"
End Sub