Picture while OLE drag/drop???

[tenshekels]

Is there any way to set the icon that is displayed on an OLE drag drop?? It does not look like VB6 implemented the "OleDragPicture" property anywhere.

 

[strongm]

You come from a VFP background, don't you...

 

[strongm]

Oops, sorry. Missed out how you achieve the same thing in VB.

Basically, you just set the Screen.MousePointer (and if required the Screen.MouseIcon) properties in a source control's OLEGiveFeedback event

 

[tenshekels]

This sounds good, but I can't get it to work.
When I try it in my app - it appears that the mouse icon switches between what I specify in "Screen.MouseIcon = ..."
and the result mouse image - based on what I specify in setting the AllowedEffects variable during the StartDrag event (either vbDropEffectCopy or vbDropEffectMove).

So - if I set AllowedEffects = vbDropEffectMove - then the cursor switches between the "Move" mouse effect and the mouse icon I specify in "Screen.MouseIcon = ...

 

[strongm]

You might want to set the parent form's OleDragMode to vbAutomatic