Imports System
Imports System.Globalization
Imports Microsoft.VisualBasic
Public Class SamplesGregorianCalendar
Public Shared Sub Main()
Dim myCal As New GregorianCalendar()
For y = 2001 To 2005
Console.Write(ControlChars.Tab + "{0}", myCal.GetMonthsInYear(y, GregorianCalendar.CurrentEra))
Next y
Console.WriteLine()
End Sub
End Class