RE:Crear varios botones en tiempo de ejecucion
Primeramente debes de crear un arreglo de control de Command Button para que funcione te dejo un ejemplo de un control label y textbox.
Option Explicit
Private Sub Command1_Click()
' Crear un nuevo control Label y un Textbox
Dim i As Long
'
' Los array de controles son "en el fondo" colecciones de base cero,
' el número actual de controles nos dará el índice del siguiente índice
' (siempre que se hayan añadido de forma correlativa)
i = Label1.Count
' cargamos el control
Load Label1(i)
' le asignamos la posición, el caption y lo hacemos visible,
' ya que por defecto no está visible
With Label1(i)
.Top = Label1(i - 1).Top + 390
.Caption = "Label1(" & i & ")"
.Visible = True
End With
' idem con los textboxes
i = Text1.Count
Load Text1(i)
With Text1(i)
.Top = Text1(i - 1).Top + 390
.Visible = True
End With
End Sub