
BUT THE TITLE FLASHES >.> Private Sub wait(ByVal interval As Integer)
Dim sw As New Stopwatch
sw.Start()
Do While sw.ElapsedMilliseconds interval
' Allows UI to remain responsive
Application.DoEvents()
Loop
sw.Stop()
End Sub
""""""""""""""""""""""""call color change """"""""""""""""
Label1.ForeColor = Color.Red
wait(100)
Label1.ForeColor = Color.Yellow
wait(100)
Label1.ForeColor = Color.Black
wait(100)
Label1.ForeColor = Color.Orange