by VB Guy (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 10th June 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Better Blinking Text Code, Still Only Requires 1 Timer
API Declarations
' looks good with timer.interval set at 100
' label1.visible should = true (default)
' you can change the duration of blinks by changing the
' timer.interval or by changing the code:
' ex. ElseIf a = 1 Then
Label1.Visible = True
' could be:
' ElseIf a = 10 Then
Label1.Visible = True
:)
a = 0
End Sub
Private Sub Timer1_Timer()
If a = 0 Then
Label1.Visible = False
a = a + 1
ElseIf a = 1 Then
Label1.Visible = True
a = 0
Else
a = a + 1
End If
End Sub