18 lines
322 B
VB.net
18 lines
322 B
VB.net
Imports System.Windows.Forms
|
|
|
|
Public Module HelpfulFunctions
|
|
|
|
Public Sub Sleep(milliseconds As Integer)
|
|
Dim stopw As New Stopwatch
|
|
|
|
stopw.Start()
|
|
|
|
Do While stopw.ElapsedMilliseconds < milliseconds
|
|
Application.DoEvents()
|
|
Loop
|
|
|
|
stopw.Stop()
|
|
End Sub
|
|
|
|
End Module
|