VBS更换背景？

Private Sub Form_Click()
CreateObject("Wscript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\1", "在此输入背景图片的地址跟名称"
CreateObject("Wscript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\2", "0"
End Sub
如果背景没改变 右键刷新下应该就出来了

没分谁给你写代码啊