Visual Basic - seleccion multiple listbox

Saludos bueno basicamente es lo que dice el titulo tengo el siguiente código

Private Sub List1_Click()

Do While Label8(Index).Caption = ""

Label8(Index).Caption = List1.List(List1.ListIndex)

Loop

End Sub


y yo al volver a seleccionar otro nombre de la list deberia de colocarse en el siguiente label8 que es una matriz de 13 labels pero no lo hace se gardece la ayuda!

Lógico. La primera vez el label8 está vacío, pero a la segunda ya no lo está y por lo tanto, no entra en el bucle.

pienso que deberia ser algo asi

for i = 0 to 12
if label8(i).caption="" then
label8(i).caption=list1.list(list1.listindex)
exit for
endif
next

Amigo de esta forma solo me cambia el primer label8(0) a me dida que hago más selección no pasa nada con los demás label8 por favor alguien q me ayude es urgente =(