BOOL GetWindowRect(
    HWND hWnd,      // handle to window
    LPRECT lpRect   // window coordinates
);
 

 
DECLARE INTEGER GetWindowRect IN user32;
    INTEGER hWindow,;
    STRING @lpRect
 

 
cBuffer = REPLICATE(CHR(0), 16)
GetWindowRect( ThisForm.HWnd, @cBuffer )
 
? buf2dword( SUBSTR(cBuffer, 1, 4) )
? buf2dword( SUBSTR(cBuffer, 5, 4) )
? buf2dword( SUBSTR(cBuffer, 9, 4) )
? buf2dword( SUBSTR(cBuffer, 13, 4) )