Imports System Imports System.Threading Imports System.Globalization Class Sample Public Shared Sub Main() Dim myDateTime As New DateTime(2011, 5, 16, 3, 2, 15) Console.WriteLine("Short time string: ""{0}" & vbCrLf, myDateTime.ToShortTimeString()) End Sub End Class