Awes VB ASP .NET Tips & Tricks

Tips and tricks for .NET using ASP and VB code.

Force the program to pause 

Paws(1000)

Public Sub Paws(ByVal Milliseconds As ULong)
    Dim WaitUntil As Date = Now + New TimeSpan(0, 0, 0, 0, Milliseconds)
    While Now < WaitUntil
        Threading.Thread.Sleep(18)
        Application.DoEvents()
    End While
End Sub

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)

Search This Blog