Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub UltraDayView1_AfterAppointmentsMoved(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.AfterAppointmentsMovedEventArgs) Handles UltraDayView1.AfterAppointmentsMoved
Dim appointment As Appointment
For Each appointment In e.Appointments
Debug.WriteLine("Appointment '" + appointment.Subject + "' has been moved. Its new Start time and End time are: " + appointment.StartDateTime.ToLongDateString() + " - " + appointment.EndDateTime.ToLongDateString())
Next
End Sub