Delay in VB?

[miLl3niUm]

I have done this to implement a delay function:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

lblStatus.Text = "Please wait"
Sleep(3000)
lblStatus.Text = "Test"
Sleep(3000)
lblStatus.Text = "asd"

But what it does is to wait 6 seconds and set label text to asd, instead of please wait -> 3sec -> test -> 3sec -> asd.

Any solutions? (using visual studio 8)

[flippert112]

I'm guessing that your form isn't "repainting" itself after you set the label text to "Test". Instead of "repainting" it immediately falls asleep again, and right when it wakes up it changes the text to "asd" and then has time to repaint.

Try doing a "MyFormName.Refresh()" right after you set the text to "Test". (with "MyFormName" being whatever your form's name is of course)

[miLl3niUm]

Thank you flipper, it worked. Something weird I have noticed VB considered using "Form.Refresh()" as error and I had to use "Me.Refresh()" instead.. lol. if I can (edit: added)

[Apoc]

Use Invalidate() instead of Refresh.

[miLl3niUm]

There is no such command for the form (Me.Invalidate()) but there is for the label. Though, it doesn't update.

[sired22]

does this help you any?

lblStatus.Text = "Please wait"

Application.DoEvents()
'multiply by 1000 for 3 seconds
System.Threading.Thread.Sleep(3 * 1000)

lblStatus.Text = "Test"

Application.DoEvents()
System.Threading.Thread.Sleep(3 * 1000)

lblStatus.Text = "asd"