Imports System
Imports System.Threading
Public Class Program
Public Shared Sub Main()
Try
Console.WriteLine("Counting...")
Dim milliseconds As Integer = 2000
Thread.Sleep(milliseconds)
Console.WriteLine("END")
Catch e As Exception
Console.WriteLine(e.ToString())
End Try
End Sub
End Class
' run:
'
' Counting...
' END
'