Private Sub ultraMonthViewMulti1_AfterDisplayMonthPopup(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.AfterDisplayMonthPopupEventArgs) Handles ultraMonthViewMulti1.AfterDisplayMonthPopup
' Get the name of the month for which the popup was displayed
Dim oldMonthName As String = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.MonthNames(e.Month.MonthNumber - 1)
' Get the name of the month that was scrolled to
Dim newMonthName As String = String.Empty
If (Not e.MonthScrollingTo Is Nothing) Then
' Ge the name of the month we are scrolling to
newMonthName = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.MonthNames(e.MonthScrollingTo.MonthNumber - 1)
' Output information about the event to the debugger
Dim info As String = String.Empty
info = "The popup was displayed for the month of " + oldMonthName + vbCrLf
info += "The popup was scrolled to the month of " + newMonthName + vbCrLf
System.Diagnostics.Debug.WriteLine(info)
End If
End Sub