有关动态控件

[Kivic]

怎样才能让动态控件响应事件
原码如下

Dim Button() As CommandButton

Private Sub Command1_Click()
ReDim Button(2)
Dim i
For i = 0 To 2
Set Button(i) = Controls.Add("VB.CommandButton", "cmd" & i, Me)
Button(i).Visible = True
Button(i).Enabled = True
Next

End Sub

Private Sub Button_Click(Index As Integer)
MsgBox "Button clicked"
End Sub

[Sean918]

你为什么不换个方法加？

先加一个ｃｍｄ控件，设置ｉｎｄｅｘ＝０
然后：

Private Sub Command1_Click()
　　For i = 0 To 2
load Button(i)
Set Button(i).Container = me

Button(i).Visible = True
Button(i).Enabled = True
Next

End Sub

[Sean918]

不好意思～～

上面　ｆｏｒ　循环的ｉ　应该是　i= 1 to 3

[Kivic]

我是要求响应，我的程序不响应
并且，我要做的是把开始菜单每项动态添加到form菜单上，用load不行