Imports System
Imports System.Threading
Public Class UseThreadSleep_VB_NET
Public Shared Sub Main(ByVal args As String())
Try
Dim start As Long = DateTimeOffset.Now.ToUnixTimeMilliseconds()
Thread.Sleep(1000)
Console.WriteLine("Sleep time in ms = " & (DateTimeOffset.Now.ToUnixTimeMilliseconds() - start))
Catch ie As ThreadInterruptedException
Console.WriteLine(ie)
End Try
End Sub
End Class
' run:
'
' Sleep time in ms = 1018
'