DragItem.MouseCursor

From Xojo Documentation

Property (As MouseCursor )
aDragItem.MouseCursor = newMouseCursorValue
or
MouseCursorValue = aDragItem.MouseCursor

Supported for all project types and targets.

The cursor to be displayed during the drag.

Sample Code

The following code displays a custom cursor for the drag. It is in the MouseDown event of the ImageWell.

Var d As DragItem
d = New DragItem(Self, X, Y, Me.Width, Me.Height)

d.DragPicture = MyPicture
d.MouseCursor = System.Cursors.HandOpen
d.Picture = Me.Image
d.Drag // Allow the drag