Private Sub Form_Load()
anzahl= 5
For i = 1 To anzahl
    Load Command1(i)
    With Command1(i)
      .Visible = True
      .Top = Command1(i-1).top + 100
      .Caption = "Button " & i
    End With
Next i
End Sub
 
Private Sub Command1_Click(Index As Integer)
    Select Case Index
    Case 0: MsgBox Index
    Case 1: MsgBox Index
    .
    .
    .
    End Select
End Sub