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("{0} {1}", myDTFI.YearMonthPattern, "(YearMonthPattern)") End Sub End Class