ChangeWallpaper

' From a newsgroup posting by Randy Birch

'


Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPI_SETDESKWALLPAPER = 20



Private Sub Command11_Click()

Dim r As Long
'

' Replace the 'c:\windows\wallpaper.bmp' with your required file

'

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, _
0&, _
"c:\windows\wallpaper.bmp", _
SPI_SETDESKWALLPAPER Or _
SPIF_UPDATEINIFILE)

End Sub