Как добавить массив кнопок во время выполнения? - VB

Формулировка задачи:

command1  VB.CommandButton
  Form_Load()
 command1 = Controls.Add(, )
command1.Visible = True
command1. = 
command1.Caption = 
 
  Command1_Click()
MsgBox command1.
 [SRC vba]

Вот так добавляется 1 кнопка

Commands()  VB.CommandButton
 num  
  Form_Load()
     num =   
             Commands(num) = Controls.Add(,  & num, Form1)
            Commands(num).Top = num * 
            Commands(num).Visible = True
            Commands(num). = 
            Commands(num).Height = 
     Commands(num).Caption = num
     num
 

Вот так массив кнопок. Но как прописать событие для этого массива?

Решение задачи: «Как добавить массив кнопок во время выполнения?»

textual
                            Листинг программы 
                        
                            <font color="blue">Option</font> <font color="blue">Explicit</font>

<font color="blue">Public</font> <font color="blue">WithEvents</font> command1 <font color="blue">As</font> VB.CommandButton

<font color="blue">Private</font> <font color="blue">Sub</font> command1_Click()
    MsgBox <font color="teal">"qwe"</font>
<font color="blue">End</font> <font color="blue">Sub</font>