Private Sub MyNodeTree_DragStarted(sender As Object, e As RadTreeViewDragEventArgs) Handles MyNodeTree.DragStarted
        If e.Node.Level = 0 Then
            MyNodeTree.DoDragDrop(e.Node, DragDropEffects.All)
        Else
            Return
        End If
    End Sub

    Private Sub RadScheduler1_DragEnter(sender As Object, e As DragEventArgs) Handles RadScheduler1.DragEnter
        If e.Data.GetDataPresent(GetType(RadTreeNode)) = True Then
            e.Effect = DragDropEffects.All
        End If
    End Sub

    Private Sub RadScheduler1_DragDrop(sender As Object, e As DragEventArgs) Handles RadScheduler1.DragDrop
            Dim node As RadTreeNode = e.Data.GetData(GetType(RadTreeNode))
            Dim point As Point = Me.ScheduleCalendar.PointToClient(New Point(e.X, e.Y))
            Dim schedulerCell As SchedulerCellElement = SchedulerUIHelper.GetCellAtPoint(point, Me.ScheduleCalendar)
            If schedulerCell IsNot Nothing Then
                Dim dragObject As String = e.Data.GetDataPresent(GetType(String))
                If dragObject IsNot Nothing Then
                    ScheduleCalendar.Appointments.BeginUpdate()
                    Dim ap As New Appointment(schedulerCell.Date, TimeSpan.FromMinutes(1), node.Name, "")
                    ap.AllDay = True
                    ap.BackgroundId = node.Index + 1
                    Me.ScheduleCalendar.Appointments.Add(ap)
                    ScheduleCalendar.Appointments.EndUpdate()
                End If
            End If

    End Sub