VB如何用代码创建一个按钮

Dim WithEvents Command1 As CommandButton

Private Sub Form_Load()
Set Command1 = Controls.Add("vb.commandbutton", "command1", Form1)
With Command1
.Width = 1800
.Height = 450
.Left = (Me.ScaleWidth - .Width) / 2
.Top = (Form1.ScaleHeight - .Height) / 2
.Caption = "我是打哪来的^o^"
.Visible = True
End With
End Sub

Private Sub Command1_Click()
MsgBox "乱按什么啊^&^！！！！" & Chr(10) & Chr(10) & "不理你了！！！", 48
Me.Controls.Remove Command1
End Sub

思路

两种方式：

1、通过动态按钮方式创建，

2：通过控件数组方式创建。

个人倾向于通过控件数组的方式。一般应用都是有规律的创建的，所以用控件数组合适些。

举例

' 先在窗体上添加一个标准按钮
' 在属性窗口中，把它的 Index属性设置成 0
'        名称改为 cmdDynCmd （其它的名称也行，注意后面的说明）
'        Visible 可以设置成 False
Option Expl