>then say:
>    oldres = FN CURRESFILE
>    RFnum% = FN HOPENRESFILE(SYSTEM(_aplVol), 0, "1.rsrc", _fsRdWrPerm)
>    LONG IF RFnum% <> -1
>      CALL USERESFILE(RFnum%)
>    END IF
>
>    lh& = FN GETRESOURCE(_"PICT",128)
>    FN DRAWPICTURE(0,0,lh&)
>    CALL RELEASERESOURCE(lh&)
>    CALL USERESFILE(oldres)
>
>ha, I'm getting good at this :-)
>

Oops, add CALL CLOSERESFILE(RFnum%) to the end of that and it'll be perfect.



-- TJ Grant (tatewake@...)
Inspired Communications. http://inspired.netstreet.net/
Phone: 407-728-7563