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

Формулировка задачи:

Для этого я использую API-функцию SystemParametersInfo:

                    Листинг программы
                
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

Однако использовать её не получается, т.к. при вызове процедуры SetWallpaper возникает ошибка 453: программа не может найти входную точку в библиотеку User32. В чём может быть дело?

Решение задачи: «Смена фонового изображения рабочего стола программно»

textual
                            Листинг программы 
                        
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