Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub UltraDayView1_AfterAppointmentResized(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.AppointmentEventArgs) Handles UltraDayView1.AfterAppointmentResized
Debug.WriteLine("Appointment '" + e.Appointment.Subject + "' has been resized. Its new Start time and End time are: " + e.Appointment.StartDateTime.ToLongDateString() + " - " + e.Appointment.EndDateTime.ToLongDateString())
End Sub