Api que sirve para poner un BMP como fondo del escritorio

Option Compare Database

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
Public Const SPIF_SENDWININICHANGE = &H2
Public Const SPIF_UPDATEINIFILE = &H1

Sub SetWallpaper(BmpFile As String)
Dim lretVal As Long
If Dir$(BmpFile) > "" Then
lretVal = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, BmpFile, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
Else
lretVal = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, "(none)", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End If
End Sub

'Schaltfläche Command1 auf Form
Function prueba()

Dim lretVal As Long
Call SetWallpaper("C:\plumas.bmp") 'BMP muß die Abmessungen des Bildschirms haben oder größer
End Function

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)