动词怎样更改电脑桌面违景为拉，请写下详细代码。添加三个命令按钮，1个图片框，1个通用对话框控件代码如次：私有声明函数系统参数sinfo Lib“用户32”别名系统参数sinfoa(ByVal u action As Long，ByVal uParam As Long，_ ByVal lpvParam As Any，ByVal fuWinIni As Long) As Long方式设置为墙纸私有常量SPI _setdesk壁纸=20 ' '将新的设置写入用户文件中，H1=1个私有常量SPIF _ UPDATEINIFILE=H1Dim PicName As String ' '打开图片文件专用子命令1 _单击()“”创建打开文件对于话框使用公共对话1 .过滤器='bmp '文件(*.bmp)|* .bmp .显示打开""获患上图片文件名称PicName=.文件名以""结尾预览图片图片1。图片=加载图片(PicName)“”判断是否打开文件如果桌面名称="然后退出子节点"设置墙纸专用子命令2 _单击()将系统信息调暗为"长"设置指定图片为桌面墙纸SysInfo=系统参数info(SPI _ setdeskwallpapler，True，PicName，SPIF_UPDATEINIFILE)' '判断设置是否成功如果SysInfo=0，则鼠标指针=0 MsgBox '很抱歉，不能安装此类墙纸Else MsgBox '恭喜你，成功地安装了墙纸结束艾芬子""退出程序私有子命令3 _单击()依赖子私有子图片1 _变更()我.宽度=图片1。宽度我。高度=图片1。高度* 1.2端部接头