02/12/2003, 15:45
|
 | | | Fecha de Ingreso: octubre-2003
Mensajes: 381
Antigüedad: 21 años, 6 meses Puntos: 0 | |
| 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 |