Visual Basic - COMO ACOMODO UN PROCEDIMIENTO CON PARAMETRO

Hola
Como puedo acomodar este codigo en un procedimiento con parametros, pues este codigo que presento se tiene que repetir 40 veces pues tengo 40 labels que tengo que aplicarles este codigo pero solo si cumplen cierto requisito entonces como puedo acomodar este codigo en un procedimiento con parametro para que al momento de llamarlo hago el moviemiento en la label que corresponde este es el codigo
If incorrecto1.Visible = True Then
incorrecto2.Left = vp
incorrecto3.Top = 360
vp = vp + 480

si mando llamar un procedimiento con parametro asi: llamarutina(no se que tipo de variable se delcare una label para que me devuelva el valor)

llamarutina(etiqueta as label)
etiqueta.propiedades.......

MUCHAS GRACIAS POR CONTESTARME
YA PROBE ESTO
Private Sub compacta(labe As Label)
labe.Left = vp
labe.Top = 360
vp = vp + 480
End Sub
Y EN CADA LABEL LO MANDO LLAMAR ASI
If incorrecto1.Visible = True Then compacta (tacha.left)
PERO ME MARCA ERROR DICE QU ENO COINCIDEN LOS TIPOS
DE QUE FORMA LE PUEDO EXPRESAR AL PARAMETRO QUE QUIERO QUE SOLO CAMBIE EL LEFT DE LAS ETIQUETAS?
GRACIAS!!!!

Por que no pruebas con otra variable por ejemplo:
Private Sub Compacta(label as Label, Sw as Boolean)
' Y preguntas
If Sw=False then
Label.left=vb
end if
' Cosa que si no quieres que te lea este left a la hora de llamar a la
' subrutina lo haces asi:
If incorrecto1.Visible = True Then compacta (label1,True)