Spanish {SOLUCIONADO} Crear o simular array de objetos

Dim myBt(50) As Button
myBt(0).Initialize("myBt")
myBt(0).Text = "boton0"

' Crear los botones (u otro objeto)
For n = 1 To TotalBotones
  dim MiBoton as Button
  MiBoton.Initialize ("MiBoton")
  MiBoton.Tag = n
  MiBoton.Text = "Botón 1" ' mejor tener el texto en una matriz o List
  ' aqui añades texto, lo incrustas donde quieras, etc
next

Sub MiBoton_Click
 Dim  indice  As Int 
 Dim Texto as String
 
 Dim b As Button
 b= Sender
   
   indice = b.Tag
   Texto = b.Text
   ' .......
   ' ..........
   ' el código que quieras

end sub