#define WM_SIZING 0x0214
scrw = 640 ;ウィンドウの幅を決める
scrh = 480
gsel 0, -1
screen 1, scrw, scrh*2,0,,,,480
// 縁の幅
framesx = ginfo_sizex - ginfo_winx
framesy = ginfo_sizey - ginfo_winy
oncmd gosub *onMessage, WM_SIZING
stop
*onMessage
// lparam には RECT 構造体が送られる
dupptr left, lparam, 4
dupptr top, lparam+4, 4
dupptr right, lparam+8, 4
dupptr bottom, lparam+12, 4
// マウスカーソルの位置とwParamの関係:
// 4 3 5
// ┌─-─┐
// 1│ │2
// └─-─┘
// 7 6 8
switch wparam
case 1
case 4
case 7
left = right-scrw-framesx
swbreak
case 2
case 5
case 8
right = left+scrw+framesx
swbreak
swend
return 1
これで多分大丈夫だと思います
過去に自分が似たような質問をし、その回答を改変しました
http://hsp.tv/play/pforum.php?mode=all&num=65574