VB: Parpadear un Campo de Texto

[guif]

Necesito controlar si en un campo de texto hay un valor igual o superior a 1.
En el caso de que sea 0 el campo se queda tal cual esta, pero si es igual a 1 o superior, el campo tendria que empezar a parpadear (canvio de color)

He intentado con esto pero no me funciona:

Do While (Text1.Text <= 1)
Text1.BackColor = red
Text1.BackColor = white
Loop

Como lo controlo????

[Kruzado]

inserta un control timmer en tu formulario

en la propiedad interval dejala en 1000 (hace el cambio cada segundo)

dale doble click en el control e ingresale el siguiente codigo

if text1.text > 0 then
if text1.forecolor=vbred then
text1.forecolor=vbblack
else
text1.forecolor=vbred
endif
else
text1.forecolor=vbblack
endif


ya viejo, y con esto tienes un blinkeador, antes de ke se me olvide, con la propiedad enabled, activas o desactivas el timmer y si kieres ke sea mas lento o mas rapido, aumenta o disminuye la propiedad interval


saludos