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) 'WinSchedule コントロール名を取得します System.Console.WriteLine(control.Name.ToString()) System.Console.WriteLine(e.Phase.ToString()) System.Console.WriteLine(e.InitialOwner.ToString()) '予定の Date Time System.Console.WriteLine(e.InitialDateTime.ToString()) '予定が移動された新しい Date Time System.Console.WriteLine(e.NewDateTime.ToString()) '一人の Owner から別の Owner への予定のドラッグを防止します e.AllowOwnerChange = False End Sub Private Sub ultraDayView1_AppointmentResized(ByVal sender As Object, ByVal e As AppointmentResizedEventArgs) Handles ultraDayView1.AppointmentResized '開始 Date Time がリサイズされたのか、それとも終了 Date Time がリサイズされたのかを指定します System.Console.WriteLine(e.ResizeType.ToString()) End Sub