Cacher is the code snippet organizer for pro developers

Imports System
Imports System.Threading
Imports System.Globalization
				
Public Module Module1
	Public Sub Main()
	

		Thread.CurrentThread.CurrentCulture = new CultureInfo("en-US")
		Dim dt as DateTime = DateTime.Now
		
		Dim shortTimeString as string = dt.ToShortTimeString()
		
		Console.Write(shortTimeString)
	End Sub
End Module