Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub UltraDayView1_AfterScroll(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.AfterDayViewScrollEventArgs) Handles UltraDayView1.AfterScroll
Debug.WriteLine("The DayView has been scrolled. The starting time of the new first visible time slot is: " + e.TimeSlot.StartTime.ToShortTimeString())
End Sub