texto parpadeante en visual basic

[paky]

Buenos días,

¿Cómo puedo hacer para que un texto que aparece en un label
parpadee durante un cierto tiempo y luego se quede fijo?

Gracias.

[webpedaler]

use el timer y dos label para este ejemplo.

timer
- interval = 1000
label1
- caption= vacio
label2
- caption = 0

Código PHP:

  Private Sub Timer1_Timer() 
 propiedades del label2 caption = 0 
y = Label2.Caption 
x = y + 1 
Label2.Caption = x 
If x < 20 Then 
 If Label1.Caption = "" Then 
   Label1.Caption = "Hola " 
  Else:  Label1.Caption = "" 
 End If 
End If 
 
End Sub  
   

[pabli]

Otra forma de hacerlo:

--------------------------------------------
Private Sub Timer1_Timer()

Static I_cont As Integer

If Label.Caption = "" Then
Label.Caption = "HOLA"
Else
Label.Caption = ""
End If

I_cont = I_cont + 1

'Después de 20 parpadeos para
If I_cont > 20 Then
Timer1.Enabled = False
Label.Caption = "HOLA"
End If
End Sub
--------------------------------------------

Saludos
Pablo