Option Explicit
'通过使用 WithEvents 关键字声明一个对象变量为新的命令按钮
Private WithEvents Newbox As CommandButton
'增加控件
Private Sub Command1_Click()
If Newbox Is Nothing Then
'增加新的按钮boxnew
Set Newbox = Controls.Add("VB.CommandButton", "boxnew", Me)
'确定新增按钮boxnew的位置
Newbox.Move Text1.Left + Text1.Width + 240 + Text1.Top
Newbox.Caption = "新增的按钮"
Newbox.Visible = True
End If
End Sub