Evento Calendar.DisplayModeChanged

Dim yearCalendar As New Calendar()
yearCalendar.DisplayMode = CalendarMode.Year
AddHandler yearCalendar.DisplayModeChanged, AddressOf Calendar_DisplayModeChanged

' root is a Panel that is defined elswhere. 
root.Children.Add(yearCalendar)

Calendar yearCalendar = new Calendar();
yearCalendar.DisplayMode = CalendarMode.Year;
yearCalendar.DisplayModeChanged +=
    new EventHandler<CalendarModeChangedEventArgs>(Calendar_DisplayModeChanged);

// root is a Panel that is defined elswhere.
root.Children.Add(yearCalendar);

<Calendar DisplayMode="Year" DisplayModeChanged="Calendar_DisplayModeChanged" />

    Private Sub Calendar_DisplayModeChanged(ByVal sender As Object, ByVal e As CalendarModeChangedEventArgs)
        Dim calObj As Calendar = TryCast(sender, Calendar)

        calObj.DisplayMode = CalendarMode.Year
    End Sub

    Private Sub calendar1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        Dim cal = TryCast(sender, Calendar)
        cal.BlackoutDates.AddDatesInPast()
    End Sub

End Class

private void Calendar_DisplayModeChanged(object sender,
                                         CalendarModeChangedEventArgs e)
{
    Calendar calObj = sender as Calendar;

    calObj.DisplayMode = CalendarMode.Year;
}