MAKING TEXT TO BLINK IN STATUS BAR IN VB.Net

1. Create a form and name it homepage
2. Place a status bar and name it StatusBar1
3. Add a Label to StatusBar1 and name it ToolStripStatusLabel1
4. Add a timer to form and name it Timer1
5. In form load event place the following code to enable timer

Private Sub homepage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ToolStripStatusLabel1.Text = "Text Blinking"

        Timer1.Interval = 1000

        Timer1.Enabled = True

        Timer1.Start()
End Sub


'making text to blink by changing colour

Public Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Static bDummy As Boolean

        bDummy = Not bDummy

        If bDummy Then

            ToolStripStatusLabel1.BackColor = Color.Yellow

           

        Else

            ToolStripStatusLabel1.BackColor = Color.SkyBlue

           

        End If

 End Sub