Spostare un Form con il mouse sulla Scrivania

Per spostare lungo la superficie della Scrivania (Desktop) con il mouse un "Form", ossia una finestra di un programma Gambas, si dovrà fare ovviamente riferimento allo schermo.
Si potrà adottare questo semplice codice:

Private x As Short
Private y As Short


Public Sub Form_MouseDown()

 x = Mouse.X
 y = Mouse.Y

End

Public Sub Form_MouseMove()

 Me.Move(Mouse.ScreenX - x, Mouse.ScreenY - y)

End

Questo codice è valido anche se il Form è privo di bordi, ossia se alla Proprietà ".Border" del Form sia stata assegnata la Costante per non disegnare i bordi del Form:

Me.Border = Border.None