按以下步驟實現動態添加命令按鈕

（1）新建一個VB6工程

（2）Form1窗體代碼

OptionExplicit'定義要動態添加的命令按鈕變量（帶事件處理）DimWithEventscmdXAsCommandButton'點擊動態添加的按鈕，彈出對話框PrivateSubcmdX_Click()MsgBox"動態添加的命令按鈕?。?！"EndSub'鼠標雙擊窗體，動態添加一個命令按鈕PrivateSubForm_DblClick()IfcmdXIsNothingThenSetcmdX=Controls.Add("VB.CommandButton","cmd1")cmdX.Caption="點擊我呀"cmdX.Width=4500cmdX.Move150,150cmdX.Visible=TrueEndIfEndSub

（3）運行

啟動后

鼠標雙擊窗體

點擊命令按鈕，彈出一個對話框