by Reg Varghese (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Wed 6th June 2001
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
Make a label Blink if the condition is met
'//Set the caption of lblBlink to be "Error"//
'//By default, set the label "lblError" to be invisible.//
'//Set the default condition to no blink.//
'//Set the timer as TimerBlank, enabled and the interval to 500//
'//Have fun!!//
lblError.Visible = False
Blink = False
Private Sub TimerBlink_Timer()
If Blink = True Then
If lblError.Visible = True Then
lblError.Visible = False
Else: lblError.Visible = True
End If
End If
End Sub