如何在VB制作的窗口上动态添加控件？急急急！

以Button为例
方法1：建立数组按钮
首先一个按钮叫Button1,index=0
在程序中要加载新按钮：load Button1(1)
卸载按钮：unload Button1(1)
但不能卸载Button1(0)方法2：在设计时什么按钮都不先建立
'声明对象变量 CommandButton
Private WithEvents cmdObject As CommandButton
Set cmdObject = Form1.Controls.Add("VB.CommandButton", "Button1")
Set cmdObject.Container = Form1
cmdObject.Visible = True
cmdObject.Caption = "按钮1"