请教动态生成的窗体控件的控制问题

caoyalu

我在窗体初始化以后动态生成了一个按钮：
Dim OKbutton As CommandButton 'OK按钮（动态生成）
Set OKbutton = Me.Controls.Add("Forms.CommandButton.1", "button")
然后试图定义子程序对按钮进行控制：
Private Sub OKbutton_Click()
在启动程序以后，按钮生成成功，但是无论怎样点击按钮都没有反映，也就是点击按钮的动作并没有象我设想的那样启动子程序。
不知如何才能对按钮的点击动作进行控制。请教各位大侠。

vbcad

  '通过使用WithEvents关键字使得控件可以响应事件
     Private WithEvents OKbutton As CommandButton
放在代码的最上面