How to move a message window?

[Kevin]

try this  cant test right now on a laptop.

Code:

Copy      Help

POINT p; xm(p);
MES m
m.x=p.x
m.y=p.y
m.style="OC"
m.timeout=15
m.default='C'
mac "sub.MoveMessage"
sel mes("This is a test message." "Test Message" m)
,case 'O' 
,out "OK"
,case 'C'
,out "Cancel"
,
#sub MoveMessage    
int w=wait(0 WA win("Test Message" "#32770"))
_monitor=2
MoveWindowToMonitor(w _monitor)