按以下步驟實現動態新增命令按鈕（1）新建一個VB6工程（2）Form1窗體程式碼Option Explicit"定義要動態新增的命令按鈕變數（帶事件處理）Dim WithEvents cmdX As CommandButton"點選動態新增的按鈕，彈出對話方塊Private Sub cmdX_Click() MsgBox "動態新增的命令按鈕！！！"End Sub"滑鼠雙擊窗體，動態新增一個命令按鈕Private Sub Form_DblClick() If cmdX Is Nothing Then Set cmdX = Controls.Add("VB.CommandButton", "cmd1") cmdX.Caption = "點選我呀" cmdX.Width = 4500 cmdX.Move 150, 150 cmdX.Visible = True End IfEnd Sub（3）執行啟動後滑鼠雙擊窗體點選命令按鈕，彈出一個對話方塊
按以下步驟實現動態新增命令按鈕（1）新建一個VB6工程（2）Form1窗體程式碼Option Explicit"定義要動態新增的命令按鈕變數（帶事件處理）Dim WithEvents cmdX As CommandButton"點選動態新增的按鈕，彈出對話方塊Private Sub cmdX_Click() MsgBox "動態新增的命令按鈕！！！"End Sub"滑鼠雙擊窗體，動態新增一個命令按鈕Private Sub Form_DblClick() If cmdX Is Nothing Then Set cmdX = Controls.Add("VB.CommandButton", "cmd1") cmdX.Caption = "點選我呀" cmdX.Width = 4500 cmdX.Move 150, 150 cmdX.Visible = True End IfEnd Sub（3）執行啟動後滑鼠雙擊窗體點選命令按鈕，彈出一個對話方塊