Visual Basic - crear objetos image o shape en ejecucion

Por favor a ver si me ayudan : Trato de crear un control shape o image en el formato activo con un boton de comando y no sucede.. que hago mal o que debo hacer?

Private Sub Command1_Click()
Load Shape1(1)
Shape1(1).Left = 0
Shape1(1).Top = 0
Shape1(1).Visible = True
Shape1(1).Index = 7
Shape1(1).TabIndex = 8
End Sub

Gracias

En el código que envias hay dos problemas:

Load Shape1(1)

La segunda vez que ejecutes el procedimiento Shape1(1) ya estará cargado y por lo tanto no puede volver a cargarse.

Shape1(1).Index = 7

Una vez cargado el control la propiedad Index es de solo lectura luego no puede ser modificada.
Prueba con el siguiente código:
Private Sub Command1_Click()
Static Cuantos As Integer

Cuantos = Cuantos + 1
Load Shape1(Cuantos)
Shape1(Cuantos).Left = 0
Shape1(Cuantos).Top = 0
Shape1(Cuantos).Visible = True
Shape1(Cuantos).TabIndex = 8

End Sub