Visual Basic - ayuda con TIMERS

necesito ayuda con el sigiuente codigo q estoy realizando es un programa donde el usuario puede ingrear cualquier numero desde el 0 al 255 en una caja de texto y el resultado se vera visualizado en otra caja de texto pero tambien seran visualizado en 8 shape que hacen el papel de ocho leds.

ahora lo que quiero hacer y no encuentro la forma es lo siguiente

si el usuario ingresa 4 quiero que de alguna manera el programa guarde ese numero para que cuando el usuario ingrese otro numero primero aparezca de forma intermitente el numero anterior mas el nuevo numero marcado. deben aparacer intermitentemente en los shape . se que se debe hacer con un timmer o a algo parecido pero no tengo idea

espero me ayuden saludos


b = Text2.Text
Text3.Text = b
Text2.Text = Clear

If b = "" Then

MsgBox ("Debe Ingresar Un Numero de 0-255")

Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


ElseIf b = 1 Then
Shape1.BackColor = vbBlue
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b


ElseIf b = 2 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbBlue
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b



ElseIf b = 3 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbBlue
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b


ElseIf b = 4 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbBlue
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b


ElseIf b = 5 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbWhite
Shape3.BackColor = vbBlue
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b



ElseIf b = 6 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbBlue
Shape3.BackColor = vbBlue
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b




ElseIf b = 7 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbBlue
Shape3.BackColor = vbBlue
Shape4.BackColor = vbWhite
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b


ElseIf b = 8 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite

Label15.Caption = b


ElseIf b = 9 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b




ElseIf b = 10 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbBlue
Shape3.BackColor = vbWhite
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 11 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbBlue
Shape3.BackColor = vbWhite
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 12 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbBlue
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 13 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbWhite
Shape3.BackColor = vbBlue
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 14 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbBlue
Shape3.BackColor = vbBlue
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 15 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbBlue
Shape3.BackColor = vbBlue
Shape4.BackColor = vbBlue
Shape5.BackColor = vbWhite
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 16 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbBlue
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b


ElseIf b = 17 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbWhite
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbBlue
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b




ElseIf b = 18 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbBlue
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbBlue
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b





ElseIf b = 19 Then

Shape1.BackColor = vbBlue
Shape2.BackColor = vbBlue
Shape3.BackColor = vbWhite
Shape4.BackColor = vbWhite
Shape5.BackColor = vbBlue
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite


Label15.Caption = b





ElseIf b = 20 Then

Shape1.BackColor = vbWhite
Shape2.BackColor = vbWhite
Shape3.BackColor = vbBlue
Shape4.BackColor = vbWhite
Shape5.BackColor = vbBlue
Shape6.BackColor = vbWhite
Shape7.BackColor = vbWhite
Shape8.BackColor = vbWhite
Label15.Caption = b

no se entendio mucho pero si lo que queres hacer es un efecto de intermitencia en un shape hace asi

pone un control timer, dentro de las propiedades pone interval en 1000

y despues dentro del evento timer esto

Private Sub Timer1_Timer()
If Shape1.BackColor = vbWhite Then
Shape1.BackColor = vbBlue
Else
Shape1.BackColor = vbWhite
End If
End Sub

gracias por responder amigo

pero es que es dificil explicarme bien por q solo me permite 10000 caracteres

y no puedo mostrarte bien el programa .... si puedes me das un correo para mandarte el programa y asi me ayudar mejor ..

de todas formas lo q quiero hacer es por ejemplo en la caja de texto escribo 23

quiero que unos shape que tengo en mi programa me hagan la forma del 23 eso ya lo tengo hecho , pero ahora quiero que si yo mando 45 se muestre primero 23 y luego 45 de forma intercalada , me entiende ?

seria de gran ayuda

muchas gracias de antemano

Te envio mi correo para ver si te puedo ayudar

[email protected]

Pon en el asunto LWP para saber de donde biene el correo.

Si no hay problema enviame a este correo
[email protected]
Poneme en el asunto Timers o algo que haga referencia asi me doy cuenta