VB. NET wait delay function

VB. NET wait delay function

Threading. Thread. Sleep (3000)
Application. DoEvents ()

Sleep (3000) means nothing can be done within 3 seconds.
(I don't know if multiple threads are allowed ).
Windows. Forms. Application. DoEvents () is a function that gives up control of the program. Generally, DoEvents is added to the loop to give the user a chance to cancel the operation. Therefore, a public variable should be used as a sign of user interruption, and a judgment should be made after DoEvents to determine whether to exit the Do loop.

Protected Sub WaitingSeconds (ByVal seconds As Integer)
Dim tmpNow As Date = Now
While Now. Subtract (tmpNow). Seconds <seconds
Windows. Forms. Application. DoEvents ()
End While
End Sub