#DEFINE ERROR_INSUFFICIENT_BUFFER   122
 
    DECLARE SHORT InternetGetLastResponseInfo IN wininet;
        INTEGER @ lpdwError,;
        STRING  @ lpszBuffer,;
        INTEGER @ lpdwBufferLength
 
    DECLARE INTEGER GetLastError IN kernel32 
 
    LOCAL lpdwError, lpdwBufferLength, lpszBuffer, lnResult
 
    lpdwError = 0
    lpdwBufferLength = 250
    lpszBuffer = SPACE(lpdwBufferLength)
 
    lnResult = InternetGetLastResponseInfo (@lpdwError,;
            @lpszBuffer, @lpdwBufferLength)
 
    IF lnResult = 0 And GetLastError() = ERROR_INSUFFICIENT_BUFFER
        lpszBuffer = SPACE(lpdwBufferLength)
        lnResult = InternetGetLastResponseInfo (@lpdwError,;
                @lpszBuffer, @lpdwBufferLength)
    ENDIF
 
    IF lnResult = 1
        ? "Error:", lpdwError
        ? "Message:", LEFT(lpszBuffer, lpdwBufferLength)
    ELSE
        ? "No response is available"
    ENDIF
RETURN