propiedades de un label

Hola a todos. Tengo una aplicación en visual de forma que cargo varios controles de la siguiente forma:

For indice=0 To NumeroControles

Load etiqueta(indice) ' creamos el control
etiqueta(indice).Visible = True ' lo hacemos visible

Next

Una vez cargado el control tengo el siguiente evento para que una vez que se pulse sobre uno de los labels pues aparezca una foto:

Private Sub etiqueta_Click(Index As Integer)

Dim MyValue
'Ejecutar el Archivo .EXE
variable = "C:\tono\cartelsevilla.gif"
MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & variable, vbMaximizedFocus)

End Sub

El caso es que esto solo me funciona en el primer label, es decir, en etiqueta(0) si pincho encima pues se abre la foto, pero en los demás labels no pasa nada si pincho encima.

¿a qué es debido este mal funcionamiento? ¿qué estoy haciendo mal?

Un saludo y gracias.

holas unas dudas..

1-. asumo que cada label esta asociado a una foto determinada.. cierto ?

2-. al pinchar sobre cualquier label que no sea el primero siempre te abre la 1° imagen, o no te abren ninguna?

si fuese ese el caso,, en alguna parte tenderi que haber algo como...

Private Sub etiqueta_Click(Index As Integer)

Dim MyValue

select case index
case 1
variable = "C:\tono\cartelsevilla.gif"
case 2
variable = "C:\tono\cartelitalia.gif"
case 3
variable = "C:\tono\cartelchile.gif"
end select

MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & variable, vbMaximizedFocus)



End Sub

Me explico...