Wallpapers

[EvilCoder]

<DELETE>

[Amed]

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20

Private Sub SetWallpaper(File As String)
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, ByVal File, True
End Sub

Использование:
SetWallpaper "clouds.bmp"

Если файл в папке Windows, то можно не указывать полный путь к нему...

[EvilCoder]

<DELETE>