You may first need to begin the drag event from what ever control you are dragging from.  Like on most grids, on a DragCell event, you can do a Control.Drag vbBeginDrag. Then, on the calendar control, you capture a drag on the DragDrop event like the following.

 

<code>

 

Private Sub CalendarControl_DragDrop(Source As Control, x As Single, Y As Single)
    Dim m_pEditingEvent As CalendarEvent
    Dim HitTest As CalendarHitTestInfo
   
    'Test Location of Drop
    Set HitTest = CalendarControl.ActiveView.HitTest

    'Check drop zone is valid
    If CalendarControl.ViewType = xtpCalendarDayView Or CalendarControl.ViewType = xtpCalendarWorkWeekView Then
        '8193 OR 16385
        If HitTest.HitCode = (xtpCalendarHitTestGroupArea + xtpCalendarHitTestDayViewCell) Or HitTest.HitCode = (xtpCalendarHitTestGroupArea + xtpCalendarHitTestDayViewAllDayEvent) Then
            'ok
        Else
            Exit Sub
        End If
       
    ElseIf CalendarControl.ViewType = xtpCalendarMonthView Or CalendarControl.ViewType = xtpCalendarWeekView Then
        '1 OR 2
        If HitTest.HitCode = xtpCalendarHitTestGroupArea Or HitTest.HitCode = xtpCalendarHitTestDayHeader Then
            'ok
        Else
            Exit Sub
        End If
    Else
        Exit Sub
    End If

    'Create new Event
    Set m_pEditingEvent = CalendarControl.DataProvider.CreateEvent
   
    'Get date selection
    Dim BeginSelection As Date, EndSelection As Date, AllDay As Boolean, EndTime As Date
    CalendarControl.ActiveView.GetSelection BeginSelection, EndSelection, AllDay
   
    'Create Calendar Event
    m_pEditingEvent.StartTime = BeginSelection
    m_pEditingEvent.EndTime = EndSelection
    m_pEditingEvent.Subject = "My Subject"
    m_pEditingEvent.Location = "My Location"
    m_pEditingEvent.AllDayEvent = AllDay
    m_pEditingEvent.Body = "My Body"
    m_pEditingEvent.Label = 0
    m_pEditingEvent.BusyStatus = xtpCalendarBusyStatusFree
    m_pEditingEvent.PrivateFlag = 0
    m_pEditingEvent.MeetingFlag = 0
           
    'Add Event to Calendar
    CalendarControl.DataProvider.AddEvent m_pEditingEvent

    Screen.MousePointer = vbDefault   

End Sub

 

</code>

 

You should test the hitcode to know exactly where you are droping and react how you want based on the location. This drop will create an event on the location where you droped. Now, just change the fields to data found the the selected row of your grid or selected text in a control.