Private Sub ultraMonthViewMulti1_VisibleMonthsChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ultraMonthViewMulti1.VisibleMonthsChanged
    '	Display the new VisibleMonths to the user
    Dim info As String = String.Empty
    info += "The VisibleMonthsChanged 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
        monthName = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.MonthNames(visibleMonth.Month.MonthNumber - 1)
        info += monthName + vbCrLf
    Next
    '	Display the message box
    MessageBox.Show(info, "VisibleMonthsChanged", MessageBoxButtons.OK)
End Sub