XProfan

 $U thread.pcu =thread.
Declare gmx%,gmy%,gmp#,dlg&
windowstyle ( 512 | 8 )
cls
dlg&=createdialog(%hwnd,,100,100,300,300)
Dim     gmp#,8

whilenot %key=2

    thread.start 1,1
    waitinput
    thread.stop 1

wend

dispose gmp#
destroywindow (dlg&)
end

proc thread.do

    parameters n&

    if n&=1

        clear gmp#
        external(user32,ClientToScreen,dlg&,gmp#)
        gmx%=long(gmp#,0)
        gmy%=long(gmp#,4)
        external(user32,GetCursorPos,gmp#)
        gmx%=long(gmp#,0)-gmx%
        gmy%=long(gmp#,4)-gmy%
        locate 1,1
        print gmx%,gmy%,

    endif

endproc