Tror det här är rätt kod iallafall...Sv: Bakgrundsbild
----------------------------------------------------------------------
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 SPI_SETDESKWALLPAPER = 20
Dim lngSuccess As Long
Dim strBitmapImage As String
strBitmapImage = "c:\windows\straw.bmp" ' sökvägen till din bild
lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)
----------------------------------------------------------------------
Mvh. Johan Segolsson