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