如何在动态创建的控件数组上添加事件？

Question

首先，我使用的是VB6，而不是VB.Net。

现在，我正在尝试在动态创建的控件数组上添加事件。但是当我尝试将WithEvents关键字添加到我的控件数组时，我得到一个“编译错误：预期：为”错误。

这是我的代码：

Option Explicit
Dim WithEvents btnNumbers() as CommandButton

Private Sub Form_Load()

    ReDim btnNumbers(1 to 10) as CommandButton
    Dim i as Integer

    For i = 1 To UBound(btnNumbers) Then

        Set btnNumbers(i) = Controls.Add("VB.CommandButton", "btnNumber" & i)
        Set btnNumbers(i).Container = Form1

        With btnNumbers(i)

            'Properties of btnNumbers here...

        End With

    Next

End Sub

我希望按钮显示一个显示其编号的消息框。例如，当我点击btnNumber4时，会出现一个消息框，上面写着“我是4号！”出现。我知道如何做这个消息框部分。问题是我无法向这些按钮添加事件以便执行此操作。

看到WithEvents似乎不起作用，还有另一种方法可以向这些按钮添加事件吗？

感谢。