Here we invoke the Sleep Sub on the Thread type. Please note how the Imports System.Threading line is included at the top of the program.
Imports System.Threading
Module Module1
Sub Main()
' Create a Stopwatch and sleep for zero milliseconds.
Dim stopwatch As Stopwatch = stopwatch.StartNew
Thread.Sleep(0)
stopwatch.Stop()
' Write the current time.
Console.WriteLine(stopwatch.ElapsedMilliseconds)
Console.WriteLine(DateTime.Now.ToLongTimeString)
' Start a new Stopwatch.
stopwatch = stopwatch.StartNew
Thread.Sleep(5000)
stopwatch.Stop()
Console.WriteLine(stopwatch.ElapsedMilliseconds)
Console.WriteLine(DateTime.Now.ToLongTimeString)
' Start a new Stopwatch.
stopwatch = stopwatch.StartNew
Thread.Sleep(1000)
stopwatch.Stop()
Console.WriteLine(stopwatch.ElapsedMilliseconds)
' Start a new Stopwatch and use SpinWait.
stopwatch = stopwatch.StartNew
Thread.SpinWait(1000000000)
stopwatch.Stop()
Console.WriteLine(stopwatch.ElapsedMilliseconds)
End Sub
End Module
0
9:36:02 AM
4999
9:36:07 AM
999
3128