Imports System Imports System.Globalization Imports Microsoft.VisualBasic Public Class SamplesDTFI Public Shared Sub Main() Dim myDTFI As DateTimeFormatInfo = New CultureInfo("en-US", False).DateTimeFormat Dim myDT As New DateTime(2010, 1, 3) Console.WriteLine(" M {0}", myDT.ToString("M", myDTFI)) End Sub End Class