OLEDrag и курсор

[Antonariy]

Пытаюсь сделать так:

Код: Выделить всё

Private Sub tvTree_OLECompleteDrag(Effect As Long)
    Screen.MousePointer = vbDefault
End Sub

Private Sub tvTree_OLEStartDrag(Data As ComctlLib.DataObject, AllowedEffects As Long)
    Screen.MousePointer = vbCustom
    Screen.MouseIcon = lDragNode.CreateDragImage
End Sub

На секунду появляется нужная картинка, а потом курсор превращается в то, что приложено в скриншоте. Если закоментить OLECompleteDrag, то после отпускании кнопки мыши курсор таки превращается в картинку. Как из курсора сделать картинку именно в момент драга?

[Sur]

AllowedEffects = 0 ?

[Antonariy]

AllowedEffects = 0 отменяет перетаскивание. Мимо.

[Sur]

в OLEGiveFeedback
DefaultCursors = False ?

[Antonariy]

На этот раз в яблочко.