Was man nicht alles mit §google findet .

Code: 
'zunächst die benötigten API-Funktionen
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 SPI_SETDESKWALLPAPER = 20 
Private Const SPIF_UPDATEINIFILE = &H1 

'Bilddatei (sFilename) muss BITMAP enthalten
Public Sub SetDesktopWallpaper(ByVal sFilename As String)
  SystemParametersInfo SPI_SETDESKWALLPAPER, 0, sFileName, _ 
    SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE 
End Sub

'kein Desktop-Hintergrund
Public Sub NoDesktopWallpaper()
  SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "", _ 
    SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE 
End Sub
Das Ganze in ein Modul packen und fertig.

vbarchiv.net

~RB~