Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub UltraDayView1_BeforeAppointmentResized(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.BeforeAppointmentResizedEventArgs) Handles UltraDayView1.BeforeAppointmentResized
Dim dr As DialogResult = MessageBox.Show(Me, "The appointment '" + e.Appointment.Subject + "' is about to be resized. Do you want to cancel the resize?", "Cancelable DayView Event", MessageBoxButtons.YesNo)
If dr = DialogResult.Yes Then
e.Cancel = True
End If
End Sub