AddHandler Me.ultraDayView1.AppointmentsDragging, AddressOf ultraDayView1_AppointmentsDragging AddHandler Me.ultraDayView1.AppointmentResized, AddressOf ultraDayView1_AppointmentResized Private Sub ultraDayView1_AppointmentsDragging(ByVal sender As Object, ByVal e As AppointmentsDraggingEventArgs) Handles ultraDayView1.AppointmentsDragging Dim control As ControlWithActivityBase = TryCast(sender, ControlWithActivityBase) 'Get WinSchedule control name System.Console.WriteLine(control.Name.ToString()) System.Console.WriteLine(e.Phase.ToString()) System.Console.WriteLine(e.InitialOwner.ToString()) 'Date Time of the appointment System.Console.WriteLine(e.InitialDateTime.ToString()) 'New Date Time to which the appointment has moved System.Console.WriteLine(e.NewDateTime.ToString()) 'Prevent dragging appointment from one Owner to another e.AllowOwnerChange = False End Sub Private Sub ultraDayView1_AppointmentResized(ByVal sender As Object, ByVal e As AppointmentResizedEventArgs) Handles ultraDayView1.AppointmentResized 'Specifies whether starting Date Time or Ending Date Time was resized System.Console.WriteLine(e.ResizeType.ToString()) End Sub