'open a window and graphicbox
    WindowHeight = 300
    WindowWidth = 400
    graphicbox #w.g, 0, 0, 400, 300
    open "test" for window_nf as #w
    print #w, "trapclose [quit]"
    #w.g "setfocus"

    hw = hWnd(#w.g)
    struct MouseRect ,mx as long,my as long
    calldll #user32, "GetCursorPos",MouseRect As struct,re As Long
    calldll #user32, "ScreenToClient",hw As ulong,MouseRect As struct,re as long
    print MouseRect.mx.struct
    print MouseRect.my.struct
    wait


[quit]

    close #w
    end