Private Sub ultraMonthViewMulti1_BeforeMonthScroll(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinSchedule.BeforeMonthScrollEventArgs) Handles ultraMonthViewMulti1.BeforeMonthScroll
' The BeforeMonthScroll event is a "cancelable" event,
' which means that the action to which it corresponds can be
' prevented from happening by canceling the event.
'
' Canceling an event is very simple - just set the 'Cancel'
' property of the event arguments to true. The action will then
' be prevented from happening, and the corresponding "After"
' event will not fire.
' If the new first visible month is not in the current year,
' cancel the event
If (e.NewFirstMonth.Year.YearNumber <> DateTime.Today.Year) Then
e.Cancel = True
End If
End Sub