Development VB.Net

Imports System
Imports System.Globalization
Public Class SamplesCalendar
   Public Shared Sub Main()
      Dim myCI As New CultureInfo("en-US")
      Dim myCal As Calendar = myCI.Calendar
      Dim myCWR As CalendarWeekRule = myCI.DateTimeFormat.CalendarWeekRule
      Dim myFirstDOW As DayOfWeek = myCI.DateTimeFormat.FirstDayOfWeek
      Console.WriteLine("The CalendarWeekRule used for the en-US culture is {0}.", myCWR)
   End Sub 
End Class