如何让多个按钮响应同一事件?

Question

我有3个按钮：command1、command2、command3，然后把他们做成了控件数组（我的制作方式：把这三个控件的名称都修改为command1，当有提示是否创建控件数组的时候，选择是）。最后检查这三个控件的响应事件：双击三个command1，发现都定位到Command1_Click()这个事件，本来以为这样做好了，可是运行的时候出现一个错误提示（见附件）。我第一次用控件数组，请高手帮忙看看，哪里出了问题，谢谢！

Answer 1

那还是有多个事件，代码很乱，本来就是调用同一个函数，却分成多个事件！如果有20个甚至更多的按钮需要执行同一段代码呢？（比如计算器的数字键），如果是用多个事件调用同一代码，早就写好了，只是我想学习一下这个控件数组，因为查了一些资料，好像控件数组就是专门用来解决多个按钮执行同一事件这种问题的？.net里是有这个功能的，可是最近要用vb6来做点东西，想知道多个按钮怎么响应同一事件，请高手继续帮忙。

Answer 2

窗体上放置6个command1
Option Explicit
Private Sub Command1_Click(Index As Integer)
    MsgBox Command1(Index).Caption
End SubPrivate Sub Form_Load()
Dim i As Integer
    For i = 0 To 5
        Command1(i).Caption = i + 1
    Next i
End Sub

Answer 3

谢谢，问题已解决，就是那个Command1_Click(Index As Integer)这个里面必须有一个参数。