VB 动态生成控件

Dim WithEvents cmdBtn As VB.CommandButton '如果不需要事件，可以去掉WithEvents

Private Sub Command1_Click() '添加按钮
Set cmdBtn = Me.Controls.Add("VB.CommandButton", "myCtrl", Me)
cmdBtn.Caption = "Click Me"
cmdBtn.Move 0, 0, 2500, 500
End Sub

Private Sub cmdBtn_Click() '按扭的事件
MsgBox ("ok")
End Sub