Private Sub UltraMonthViewSingle1_BeforeScroll(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinSchedule.BeforeScrollEventArgs) Handles ultraMonthViewSingle.BeforeScroll
'----------------------------------------------------------------------------------------------------
' 説明
' BeforeScroll
'
' コントロールがスクロールする前に発生します
' BeforeScroll イベントがキャンセルされる場合、コントロールがスクロールされずに、AfterScroll イベントも発生しません
'
'----------------------------------------------------------------------------------------------------
If e.ScrollAction = ScrollEventType.ThumbTrack Then e.Cancel = True
End Sub