• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Make everything flash on a form.

Make everything flash on a form.

Make everything flash on a form.

Rate Make everything flash on a form.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'[email protected]
'Amer Shahzad
'You need to have one label, one text box and one timer on the form.
'and names would be = Label1 , Text1 and Timer1

varBlink = "On"
Label1.Caption = "BrainRoutes.com"
Text1.Text = "BrainRoutes.com"
End Sub

Private Sub Timer1_Timer()
Me.Caption = Time
If varBlink = "On" Then
    Label1.Visible = True
    Text1.ForeColor = RGB(255, 255, 255)
    varBlink = "Off"
ElseIf varBlink = "Off" Then
    Label1.Visible = False
    Text1.ForeColor = RGB(255, 0, 0)
    varBlink = "On"
End If
End Sub