Private Sub UltraMonthViewSingle1_AfterScroll(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinSchedule.AfterScrollEventArgs) Handles ultraMonthViewSingle.AfterScroll
'----------------------------------------------------------------------------------------------------
' 説明
' AfterScroll
'
' コントロールがスクロールされた後に発生します
' BeforeScroll イベントをキャンセルしないと、AfterScroll イベントが発生します
'
'----------------------------------------------------------------------------------------------------
' 以前の値および新しい値をデバッガーに出力します
Dim info As String = String.Empty
info += "The control was vertically scrolled. The type of scrolling operation was: "
info += e.ScrollAction.ToString()
Debug.WriteLine(info)
End Sub