![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
02/01/2010, 08:06
|
![Avatar de pkj](http://static.forosdelweb.com/customavatars/avatar145670_1.gif) | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 6 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! |