Visual Basic - Alguien ayúdeme porfa!!!

Hola!! Miren tengo este código que va creando un arreglo de labels desde el código.
Primero pongo un label en el diseño y le asigno "0" a la propiedad Index y en el código voy agregando más labels dando click en un botón que también puse en el diseño para que todos los labels tengan el mismo nombre.
Este es el código:
Private Sub cmdPrueba_Click()
Dim i As Integer
i = lblPrueba.LBound ' esta propiedad hará q el índice del array sea único
Load lblPrueba(i + 1) ' para cargar en memoria el nuevo control
lblPrueba(i + 1).Visible = True
lblPrueba(i + 1).Caption = "Hola"
'lblPrueba(i + 1).Top = lblPrueba(i + 1).Top + lblPrueba(i).Height + 120
lblPrueba(i + 1).Left = lblPrueba(i).Left
End Sub

La primera vez que le doy click al botón me agrega un label, pero la segunda vez me dice que ya se el label ya se cargó.
¿¿¿Alguien me puede decir cómo le hago para que pueda agregar infinidad de labels???

Gracias y saludos.

Hola
Lo que necesitas lo puedes hacer de esta forma.
Coloca un label y un command con el siguiente codigo

Option Explicit
Dim Numero As Integer
Private Sub cmdPrueba_Click()
Numero = Numero + 1
Load lblPrueba(Numero)
lblPrueba(Numero) = "Hola"
lblPrueba(Numero).Left = lblPrueba(Numero - 1).Left + lblPrueba(Numero).Width
lblPrueba(Numero).Visible = True
End Sub

Chao

necesito hacer un codigo para que el botono agregar funcione

AQUI TIENES UNEJEMPLO DE ARRAY DE CONTROLES:
http://www.macroheavy.com/vb/menucurso.html
CARPETA:: CONTROLES COMUNES
SI BIEN TRABAJA CON OBJETOS TEXT BOX, PUEDES ADECUARLO PARA QUE TRABAJE CON OBJETOS LABEL.

Muchas gracias, así fue como quedó y sí funciona:

i = lblAdicional.UBound ' esta propiedad hará q el índice del array sea único
Load lblAdicional(i + 1) ' para cargar en memoria el nuevo control
lblAdicional(i + 1).Caption = txtadicional
lblAdicional(i + 1).AutoSize = True
lblAdicional(i + 1).Visible = True

En el diseño del formulario puse el label lblAdicional, sin texto y con la propiedad index=0