此一问题需调用 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:windowssetup.bmp

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:windowssetup.bmp

", SPIF_UPDATEINIFILE)

' 2. 将桌面图片清掉

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "",

SPIF_UPDATEINIFILE)

程序如下：

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BMP图档名称,

SPIF_UPDATEINIFILE