#define COLOR_DESKTOP           1 
#define MAX_PATH                260 
#define SPI_GETDESKWALLPAPER   0x0073

DECLARE INTEGER GetSysColor in WIN32API integer
DECLARE INTEGER SystemParametersInfo IN WIN32API;
    INTEGER   uiAction,;
    INTEGER   uiParam,;
    STRING  @ pvParam,;
    INTEGER   fWinIni

_screen.BackColor = GetSysColor(COLOR_DESKTOP)

LOCAL lcBuffer as String 
lcBuffer=SPACE(MAX_PATH)
=SystemParametersInfo(SPI_GETDESKWALLPAPER, MAX_PATH, @lcBuffer,  0 )
_screen.Picture = LEFT(lcBuffer,AT(CHR( 0 ),lcBuffer)- 1 )

CLEAR DLLS