Mouse dragging
Posted: Saturday 26th November 2022 4:38pm
When I drag an image on the screen the mouse is positioned top left just outside the image. Is there a way to get the mouse cursor to be within the image being dragged?
Public sub MyObject_MouseMove()
If Mouse.Left then
Drag.IconX = Mouse.ScreenX - Last.ScreenX
Drag.IconY = Mouse.ScreenY - Last.ScreenY
Drag.Icon = hDragPicture
Last.Drag(sData, "text/plain")
Endif
End