Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub UltraDayView1_AfterAppointmentEdited(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.AppointmentEventArgs) Handles UltraDayView1.AfterAppointmentEdited
Debug.WriteLine("Appointment '" + e.Appointment.Subject + "' has completed editing")
End Sub