Karla
24 de Septiembre del 2003

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)

cesar569
24 de Septiembre del 2003

Que se supone que son los objetos incorrectos, son del tipo label. si tienes 40 no seria mas facil cambiar todos por un array de labels.

Un Saludo

rafa
24 de Septiembre del 2003

Hola Karla:
No entendi bien tu pregunta.
Pero tal vez es esto lo que buscas:
'ponlo en un modulo
Public Sub pruebalabel(lbl As Label)
If lbl.BackColor = vbRed Then
lbl.BackColor = vbGreen
Else
lbl.BackColor = vbRed
End If
End Sub

y lo llamas desde el formulario que necesites
pruebalabel label