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
 
Sub hintergrundbild()
 
Const SPIF_SENDWININICHANGE = &H2
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
 
'zum laden eines Hintergrundbildes (sollte eine BMP sein!)
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, _
"c:\1.bmp", SPIF_UPDATEINIFILE Or _
SPIF_SENDWININICHANGE
 
End Sub