• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Better Blinking Text Code, Still Only Requires 1 Timer

Better Blinking Text Code, Still Only Requires 1 Timer

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
:)



Rate Better Blinking Text Code, Still Only Requires 1 Timer

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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