Public Class DatePickerYears

   Public Property SelectedDate As Date?
      Get
         Return CustomDP.SelectedDate
      End Get
      Set(value As Date?)
         CustomDP.SelectedDate = value
      End Set
   End Property

   Public Shared ReadOnly SelectedDateProperty As DependencyProperty =
      DependencyProperty.Register("SelectedDate", GetType(Date), GetType(DatePickerYears),
                                  New FrameworkPropertyMetadata(New Date()))

   Private Sub CustomDP_SelectedDateChanged(ByVal sender As Object,
                                                ByVal e As System.Windows.Controls.SelectionChangedEventArgs) Handles CustomDP.SelectedDateChanged
      If IsNothing(SelectedDate) Then
         SelectedDate = Date.Now
      End If
      SelectedDate = New Date(Year(CDate(CustomDP.SelectedDate)),
                              Month(CDate(CustomDP.SelectedDate)),
                              Day(CDate(CustomDP.SelectedDate)))
   End Sub

   Private Sub Plus1Y_Click(sender As Object, e As RoutedEventArgs) Handles Plus1Y.Click
      CustomDP.DisplayDate = New Date(Date.Now.Year + 1, 1, 31)
      CustomDP.SelectedDate = CustomDP.DisplayDate
   End Sub

   Private Sub Perpetual_Click(sender As Object, e As RoutedEventArgs) Handles Perpetual.Click
      CustomDP.DisplayDate = New Date(2099, 1, 31)
      CustomDP.SelectedDate = CustomDP.DisplayDate
   End Sub

End Class