'Notice how the cursor is set to move on pressed event:
Private Sub apWindowTop_MousePressed (EventData As MouseEvent)
If Not(isAtFinalPos) Then Return
apWindowTop.MouseCursor = fx.Cursors.MOVE '<<< Here
iMoveOriginPosX = EventData.X
iMoveOriginPosY = EventData.Y
End Sub
'and changed back to hand on release:
Private Sub apWindowTop_MouseReleased (EventData As MouseEvent)
apWindowTop.MouseCursor = fx.Cursors.HAND '<<< and Here
End Sub