Private Sub ultraMonthViewMulti1_AfterMonthScroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles ultraMonthViewMulti1.AfterMonthScroll
' Display the new VisibleMonths to the user
Dim info As String = String.Empty
info += "The AfterMonthScroll event has fired. The new VisibleMonths are as follows:" + vbCrLf + vbCrLf
Dim visibleMonth As Infragistics.Win.UltraWinSchedule.MonthViewMulti.VisibleMonth
For Each visibleMonth In Me.ultraMonthViewMulti1.VisibleMonths
' Get the name of the visible month, append it to the string we will display
Dim monthName As String = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.MonthNames(visibleMonth.Month.MonthNumber - 1)
info += monthName + vbCrLf
Next
' Display the message box
MessageBox.Show(info, "AfterMonthScroll", MessageBoxButtons.OK)
End Sub