用VB实现任意修改Win桌面背景使用教程

ConstSPI_SETDESKWALLPAPER=20 　　ConstSPIF_UPDATEINIFILE=&&H1 　　PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLong 　　注：如果以上的声明放在“一般模块”下，应在Const之前加上P