Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub UltraDayView1_BeforeTimeSlotSelectionChanged(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.BeforeTimeSlotSelectionChangedEventArgs) Handles UltraDayView1.BeforeTimeSlotSelectionChanged
Dim oldRange As String = "[ " + e.OldSelectedTimeSlotRange.StartDateTime.ToLongTimeString() + " - " + e.OldSelectedTimeSlotRange.EndDateTime.ToLongTimeString() + " ]"
Dim newRange As String = "[ " + e.NewSelectedTimeSlotRange.StartDateTime.ToLongTimeString() + " - " + e.NewSelectedTimeSlotRange.EndDateTime.ToLongTimeString() + " ]"
Dim dr As DialogResult = MessageBox.Show(Me, "The selected time slot range is about to change from " + oldRange + " to " + newRange + ". Do you want to cancel the selection?", "Cancelable DayView Event", MessageBoxButtons.YesNo)
If dr = DialogResult.Yes Then
e.Cancel = True
End If
End Sub