Mega Code Archive
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