Option Explicit
Private WithEvents NewPicture As PictureBox
'通過使用WithEvents關鍵字宣告一個物件變數為新的命令按鈕

Private Sub Command1_Click() '這個按鈕用來新增新控制元件
If NewPicture Is Nothing Then
    Set NewPicture = Controls.Add("VB.PictureBox", "picture", Form1)
    '增加新的按鈕cmdNew
    NewPicture.Move 500, 500
    '確定新增按鈕cmdNew的位置
    NewPicture.Visible = True
    '顯示該按鈕
End If
End Sub

Private Sub Command2_Click() '這個按鈕用來刪除新控制元件
If NewPicture Is Nothing Then
    Exit Sub
Else
   Controls.Remove NewPicture
   Set NewPicture = Nothing
   End If
End Sub
Private Sub NewButton_click()
    MsgBox "你點選了新建的Picturebox", vbDefaultButton1, "Click"
End Sub