Visual Basic - NO COINCIDEN LOS TIPOS

HOLA
Tengo un procedimiento donde mando modificar el left pues las tengo que acomodar en diferentes partes de la pantalla alineadas por eso el left de la label se debe de estar incrementando y como son 40 labels que tengo que modificar hice este procedimiento pero me marca error de que no coinciden los tipos,alguien me puede ayudar u otra cosa que se le ocurra que no genere tanto codigo pues son 40 labels, este es el codigo
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 (incorrecto.left)
YA TAMBIEN LO INTENTE LLAMAR ASÍ
If incorrecto1.Visible = True Then compacta (incorrecto)
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!!!!

En el foro Visual Basic te pido la ayuda que necesito.

fijate el valor inicial de vp que tipo de variable esta definida a lo mejor esta ahi el problema.

Hola
El error lo marca al mandar llamar el procedimiento no en el procedimiento
Lo que pasa que tengo que alinear 40 labels el espacio entre ellas es de 480 por eso cada que este visible una lable debe serra alineada y por eso tiene que incrementar su left 480 para que no aparezcan amontonadas pero el top es el mismo para todas, y como son 40 quisiera reducir codigo y hacer un procedimiento que me haga esto lo malo que me marca error por eso pido una sugerencia porfavor
Espero haberme explicado
GRACIAS!!!