Visual Basic - ACOMODAR 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)

dim C as control
For Each c in controls ' coleccion de controles dentro del formulario
if typeof c is Label then
' pregunta de label y lo que haces
end if
next c
de esta forma te recorre todos los controles del form y solo actua sobre el tipo de control que vos quieras, en esta ocasion un label
espero sea de utilidad.
en el caso de querer pasar variables solo tenes que definir en la funcion
Public o private function NombreFuncion(Byval Variable as label)
end function