VB 更换设置桌面背景图片函数

主要是通过使用Win32 API函数中的SystemParametersInfo函数来更换墙纸，墙纸图片貌似只能是bmp格式才能成功。

Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1

Private Sub setWallpaper(FilePath As String)
    Dim t As Long
    t = SystemParametersInfo(ByVal SPI_SETDESKWALLPAPER, True, ByVal FilePath, SPIF_UPDATEINIFILE)
    If t Then
        MsgBox "