.窗体中已经有command1，要在窗体中用代码创建command2怎么做？注意：不用控件数组！我用如下代码怎么不行？

Question

Set command2=Controls.add("VB.CommandButton","Button")

Answer 1

不行，要用API
CreateWindowEx(...)

Answer 2

Private WithEvents command2 As CommandButton

Answer 3

Private WithEvents command2 As CommandButton 
Private Sub Command1_Click()
      Set command2 = New Controls.add("VB.CommandButton","Button") 
End Sub
vb控件的事件是前期绑定的所以要先声明
Private WithEvents command2 As CommandButton 

Answer 4

写错了更正一下
Private WithEvents command2 As CommandButton 
Private Sub Command1_Click()
      Set command2 = Controls.add("VB.CommandButton","Button") 
End Sub
vb控件的事件是前期绑定的所以要先声明
Private WithEvents command2 As CommandButton