Drag/Drop

Is it possible to enable drag/drop. I have a label that I want to drag onto the calendar and create an event based upon the caption of the label and the date & time where it is dropped?  any ideas?

Serge- 

How would I use the HitTest() method to retrieve the begin and/or end datetime?  Can you give me an example of VB code that would return those values so that I can add an event?  Thanks.

 

David

I created a work around it by dragging the label into the calendar then simulating a mouse click upon drop. Here is my code:

'declarations
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10

'simulate a double click to fire the calendar's dblclick event
Private Sub CalendarControl_DragDrop(Source As Control, x As Single, y As Single)

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, x, y, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, x, y, 0, 0       

End Sub

'get the selected times
Private Sub CalendarControl_DblClick()
Dim BeginTime As Date
Dim EndTime As Date
Dim bAllDay As Boolean

CalendarControl.DayView.GetSelection BeginTime, EndTime, bAllDay

Debug.Print BeginTime
Debug.Print EndTime

End Sub