用VB实现任意修改Win桌面背景 首先在VB中创建一个窗体并在其中加入一个命令按钮，第一步在窗体的通用段中输入以下代码：

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)