Timer y Colores en visual basic

Question

Hola a todos, soy nueva en VB y quiero realizar un programa el cual cambie los colores de un Label a medida que pasan los segundos, para esto utlice un Timer. Los colores me toca programarlos con BQColor y los colores de este llegan hasta 16. Cuando  ejecuto el programa me funciona pero solo hasta 15 segundos, como hago para que cuando llegue a los 16 segundos inicie nueva mente con el primer color. 

No se si sea posible hacerlo asi, solo es una idea que se me ocurrio y ojala funcione. Gracias.

Answer 1

Create una variable contador que cuando llegue a 16 se reinicie dicha variable a la hora de establecer el color...

---

Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

Answer 2

Mira el codigo

        LblHora.Text = Now.Hour
        LblMinutos.Text = Now.Minute
        LblSegundo.Text = Now.Second

        color = Val(LblSegundo.Text)
        PnlPizarra.BackColor = ColorTranslator.FromOle(QBColor(color))

 

Como coloco el contador ???

Answer 3

Static contador As integer

blHora.Text = Now.Hour
         LblMinutos.Text = Now.Minute
         LblSegundo.Text = Now.Second
 contador= contador + 1
If contador = 16 Then contador =1
        color = contador
         PnlPizarra.BackColor = ColorTranslator.FromOle(QBColor(color)) 

---

Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

Answer 4

Gracias me funciono........