Primero crea un boton que se llame cmdclon y le pones de index = 0
luego en otro programas
Private Sub Command1_Click()
For X = 1 To 5
Load Me.cmdclon(X)
Me.cmdclon(X).Left = Me.cmdclon(X - 1).Left + 500
Me.cmdclon(X).Visible = True
Next
End Sub
espero que sea lo que necesitas