Spostare uno Form con il mouse sulla Scrivania

Per spostare lungo la superficie della Scrivania 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.ScreenX - Me.X
 y = Mouse.ScreenY - Me.Y

End

Public Sub Form_MouseMove()

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

End