如何改變桌面的圖片？

此一問題需呼叫 SystemParametersInfo API 函數，細節如下：

1. API 的宣告：

Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
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

註：如果以上的宣告放在「一般模組」底下， 應在 Const 之前加上 Public 保留字， 並且將 Private 保留字去掉。

2. 程式範例：

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BMP圖檔名稱, SPIF_UPDATEINIFILE)

例如:

' 1. 將桌面圖片設定成 c:\windows\setup.bmp
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\setup.bmp", SPIF_UPDATEINIFILE)

' 2. 將桌面圖片清掉
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", SPIF_UPDATEINIFILE)