Смена фонового изображения рабочего стола программно

Option Explicit
 
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1
 
Private Declare Function SystemParametersInfo Lib "user32.dll" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Integer
 
Sub SetWallpaper(ByVal strFileName As String)
Dim a As Long
a = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal strFileName, SPIF_SENDWININICHANGE)
End Sub

 Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

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 Sub SetWallpaper(File As String)  
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, ByVal File, True  
End Sub  
 
Private Sub Form_Load()  
SetWallpaper "C:\123.bmp"  
End Sub