代码如下： 

＇声明
Private WithEvents NewButton As ComandButton 
＇1,添加
Set NewButton=Controls.Add("VB.CommandButton","cmdNew",Me)
NewButton.Move 0,0,Width,Height
NewButton.Visible=True

＇2，删除
Controls.Remove NewButton
Set NewButton=Nothing