Добавьте на форму кнопку и установите у нее свойство Index=0. Введите следующий код:
Private Sub Command1_Click(Index As Integer)
Dim Ind As Integer
' Определяем индекс следующей кнопки
Ind = Command1.UBound + 1
' Загружаем кнопку.
' Первоначально кнопка будет невидима,
' а все ее остальные свойства будут соответствовать
' свойствам кнопки с нулевым индексом, в том числе
' ее размер и положение на форме
Load Command1(Ind)
Command1(Ind).Left = Command1(Ind - 1).Left + Command1(Ind - 1).Width
Command1(Ind).Visible = True
End Sub