Why the "Threading.Thread.Sleep" does not work?

[gaxjyxq]

I want to flash the label control, but the line "Threading.Thread.Sleep" doesn't work.

Public Class Form2
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ChangeColor.Flash(Me, Label1)
End Sub
End Class

Public Class ChangeColor

Public Shared Sub Flash(FormName As Form, LabelName As Label)
Dim task As Task = New Task(
Sub()
Dim mi As MethodInvoker = New MethodInvoker(
Sub()
For i As Int16 = 0 To 5
LabelName.ForeColor = Color.Red
Threading.Thread.Sleep(300)
LabelName.ForeColor = Color.Black
Next
End Sub)
FormName.BeginInvoke(mi)
End Sub)
task.Start()
End Sub
End Class

Continue reading...