button that moves window

[MerkurAlex]

Ok so i have a button and when it is down it should act like a titlebar so it moves the window to mouse position ive tried but i cant seem to figure it out.

[qazwsx]

$pos = mousegetpos ()
If _ispressed (01) and $pos[0] > "area of button" and $pos[0] < area of button and $pos[1] > area of button and $pos[1] < area of button
     Do
$pos = mousegetpos ()
Guictrlsetpos ($window, $pos[0], $pos[1]

Until not _ispressed(01)
Endif

You would have to add some math to the movement of the window to make it work, but i think it should work. This is probably not the best way to do it but it should work.