* 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 EndwithCetin