OLE Drag Drop for treeView control

I have a tree view control in my application. I want to drag a node from applications tree view control and drop it in another application. While dragging I want a paticular icon to be displayed against mouse pointer. Could anyone help me in doing this. I have tried DragIcon property but that changes the icon if you drag the control rather than the contents of the control. I also tries the screen.mousepointer and screen.mouseicon properties but could not achieve the desired function. Any help in this regard will be greated appreciated.

Thanks

Ali.

If you want to change the mouse pointer, you need to respond to the _OLEGiveFeedback event.
In the event handler for the control, first set "DefaultCursors" to false, then you can change the cursor through the Screen object.

Example:
Private Sub UserControl_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
DefaultCursors = False
Screen.MouseIcon = imglstDrag.ListImages.Item(GetDragImgID(m_DragNode.Tag.typeobj)).ExtractIcon
Screen.MousePointer = vbCustom
End Sub


Its kind of obsurce, but Microsoft actually documented it in the documented titled:

Dragging the OLE Drag Source over the OLE Drop Target

In the Visual Basic Concepts section of the MSDN library

I should have also mentioned that with the tree control, you will be responding to an event like TreeView1_OLEGiveFeedback, not usercontrol (as in the code example). Also, in the _OLECompleteDrag, you will need to set the screen.mousepointer back to vb default.

Treeview has a createDragImage property using which you can set an image.. i will check if i can provide you the code..


RK

Thankyou very much for your help.

Regards

Ali.