怎样设置控件的事件过程?

Question

我用controls.add增加了一些控件,却无法给这些控件设置事件(click,keydown,keyup等)的过程.
请问诸位高手,如何解决?
注:这些控件是一些控件数组,我想让他们同一事件执行同一过程.

Answer 1

Option Explicit
'声明对象变量为 CommandButton 。
Private WithEvents cmdObject As CommandButton Private Sub Form_Load()
   Set cmdObject = Form1.Controls.Add("VB.CommandButton", "cmdOne")
   cmdObject.Visible = True
   cmdObject.Caption = "Dynamic CommandButton"
End SubPrivate Sub cmdObject_Click()
    Print "this is flyingworm speaking"
End Sub

Answer 2

Form1.Controls.Remove "cmdObject" ' 删除控件。