请问在VB中如何动态添加控件，不如说按钮

Question

人在，等……

Answer 1

Dim WithEvents Command1 As CommandButtonPrivate 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 SubPrivate Sub Command1_Click()
MsgBox "乱按什么啊^&^！！！！" & Chr(10) & Chr(10) & "不理你了！！！", 48
Me.Controls.Remove Command1
End Sub