02/01/2010, 08:06
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 17 años, 9 meses Puntos: 29 | |
| Respuesta: recorrer controles
Que tal esto?
Código vb:
Ver originalDim f As Integer For f = 0 To 13 Select Case Int(Rnd * 3) + 1 Case Is = 1: Label1(f).ForeColor = vbRed Case Is = 2: Label2(f).ForeColor = vbRed Case Is = 3: Label3(f).ForeColor = vbRed End Select Next f
Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza! |