Const SPIF_UPDATEINIFILE = &H1
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
 
Public Declare Function SystemParametersInfo Lib "user32" Alias _
  "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef _
  lpvParam As Any, ByVal fuWinIni As Long) As Long

Sub SetWallPaper
  Dim X as Integer, DName As String
 
  DName = "(none)"
  x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, DName, SPIF_UPDATEINIFILE _
    OR SPIF_SENDWININICHANGE)
End Sub

Function SetWallPaper(DName as String) as Long
  SetWallPaper = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, DName, _
    SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE)
End Function