This is something I have used in the ClarionMetroWizard project to move allow you to move a window that doesn’t have a title bar.
NOTE: Look here for a more correct implementation - http://support.microsoft.com/kb/114593
Edit: https://www.betaarchive.com/wiki/index.php/Microsoft_KB_Archive/114593
The below code works well enough but it does have some limitations, such as the nested ACCEPT loop will stop the calling window from receiving events.
MoveWindow PROCEDURE()
origX LONG
origY LONG
CODE
CASE Field()
OF ?MyRegion
CASE EVENT()
OF Event:MouseDown
origX = MOUSEX()
origY = MOUSEY()
ACCEPT
CASE EVENT()
OF Event:MouseUp
BREAK
OF Event:MouseMove
0{Prop:Xpos} = 0{Prop:Xpos} + (MOUSEX() - origX)
0{Prop:Ypos} = 0{Prop:Ypos} + (MOUSEY() - origY)
END
END
END
END
Original Gist: https://gist.github.com/fushnisoft/4f9da267e165033e007a