Display the short date pattern and string.
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 date string: ""{0}" & vbCrLf, myDateTime.ToShortDateString()) End Sub End Class