Imports Infragistics.Windows.Editors
Imports Infragistics.Windows.Controls
Private Sub InitializeCalendar(ByVal calendar As XamMonthCalendar)
' show the week numbers - by default week numbers are not shown
calendar.WeekNumberVisibility = Visibility.Visible
' hide the today button - by default it is shown
calendar.TodayButtonVisibility = Visibility.Collapsed
' by default the day of week headers are displayed
calendar.DayOfWeekHeaderVisibility = Visibility.Visible
' the DayOfWeekHeaderFormat provides several options for
' how much text is displayed for the day of week headers.
' this defaults to 2 characters
calendar.DayOfWeekHeaderFormat = DayOfWeekHeaderFormat.SingleCharacter
' hide the scroll buttons - by default they are displayed in the
' upper left and upper right CalendarItemGroups
calendar.ScrollButtonVisibility = Visibility.Collapsed
End Sub