Haz un command button y establece propiedades
Name=Cmd
Index=0
Visible=false
Coloca otro boton, y en el codigo pon esto
Cita: Dim S As Integer
Private Sub Command1_Click()
S = S + 1
Load Cmd(S)
Cmd(S).Visible = True
Cmd(S).Top = Cmd(0).Top + 500 * S
End Sub
Private Sub Form_Load()
S = 0
End Sub