' ============================================================================ 
'                     BCX Console mode sample program 
' Win32 command line utility to change the desktop wallpaper.  Passing an 
' invalid filename has the effect of setting the wallpaper to <none> 
' ============================================================================ 

IF COMMAND$ = "" THEN
  PRINT "<S>et <W>all <P>aper by Kevin Diggins (2000)"
  PRINT "Usage: SWP filename.bmp"
  END
END IF

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, COMMAND, SPIF_UPDATEINIFILE)

Result:

Result not displayed for this example.