Visual Basic - Añadir controles en tiempo de ejecución

Estoy tratando de añadir varios image, pero en tiempo de ejecución.
La cantidad de imaga a añadir variará entre 0 y X.
Yo lo hago de la siguiente manera, pero el problema es de esta forma solo me deja añadir uno, porqué cuando añado el siguiente me dice que ya existe ese nombre:

Dim WithEvents objeto As Image
---------------
Dim a As Byte
Dim izq As Integer
Dim alt As Integer
izq = 180
alt = 390

a = 0
While a < 1
Set objeto = Form1.Controls.Add("VB.Image", "ima")
With objeto(a)
.Appearance = 0
.BorderStyle = 1
.Height = 80
.Width = 70
.Left = izq
.Top = alt
.Stretch = True
.Picture = LoadPicture(ruta & "\" & File1.List(a))
.Visible = True
End With
izq = izq + 80
a = a + 1
Wend

Por favor, a ver si me podeís echar una mano. Muchas gracias

Veamos
1.- Es debido a esta línea:
Set objeto = Form1.Controls.Add("VB.Image", "ima") ima es el nombre que le estas asignando a ese nuevo control, claro la primera vez lo hace bien pero la segunda vez ya existe un control que posee ese nombre...! aunque emplees With objeto(a) el objeto incial no fue declarado como un arreglo..! (por cierto la línea While a < 1 debe ser WHile a < X supongo).
2.-Yo te recomendaría colocar en tiempo de diseño un objeto imagen llamado ima con un index = 0 Visible= false Appearance = 0
BorderStyle = 1 Height = 80 Width = 70 Left = izq Top = 390
Luego tu código quedaría

algo así:
Dim a As Byte
Dim izq As Integer
Dim alt As Integer
izq = 180
alt = 390

a = 1
While a < X
Load ima(a)
With ima(a)
.Picture = LoadPicture(ruta & "\" & File1.List(a))
.Visible = True
'Todas las demás propiedades fueron asumidas de ima(0)
End With
izq = izq + 80
a = a + 1
Wend

y como hago para eliminarlos posteriormente.

Gracias

Si empleas el método de colocar el control con el índice cero en tiempo de diseño y luego el método load, para eliminarlos sólo debes colocar unload Objeto(indice). Pero ojo sólo podrás descargar (eliminar) objetos que hayas creado en tiempo de ejecución. (Es decir el elemento cero no podrás eliminarlo)....

Muchas gracias tu ayuda porque no era capaz de encontrar la solución.
Saludos