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