* A timer on form with interval 10 >*Form.Load >Declare short GetCursorPos in win32api string @ lpPoint >DECLARE RtlMoveMemory IN WIN32API ; > INTEGER @DestNumeric, ; > STRING @pVoidSource, ; > INTEGER nLength >declare short ScreenToClient in win32API ; > integer hWnd, string @ lpPoint >set library to home()+'foxtools.fll' additive > >*Timer1.interval = 10 >*timer1.timer >With thisform > If mdown() > Store 0 to lnPosX,lnPosY > lpPoint = space(8) > If GetCursorPos(@lpPoint)#0 > ScreenToClient(_WhToHwnd(_WOnTop()),@lpPoint) > RtlMoveMemory(@lnPosX, left(lpPoint,4), 4) > RtlMoveMemory(@lnPosY, right(lpPoint,4), 4) > If !between(lnPosX, 0-sysmetric(3), .width+sysmetric(3)) ; > or !between(lnPosY, 0-sysmetric(4)-sysmetric(19),.height+sysmetric(4)) > .release > Endif > Endif > Endif >Endwith >Cetin