ChangeDeskImage

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
Public Const SPIF_SENDWININICHANGE = &H2
Public Const SPI_SETDESKWALLPAPER = 20
Public Const SPIF_UPDATEINIFILE = &H1
Subroutine
Sub CambiaSfondo(NomeFile as string)
' Nella variabile Nome va indicato

' il nome del file .BMP completo di path

' se si passa una stringa vuota si elimina

' l'immagine di sfondo esistente

SystemParametersInfo SPI_SETDESKWALLPAPER, 0, NomeFile, SPIF_UPDATEINIFILE Or _
SPIF_SENDWININICHANGE
end sub