Problems setting wallpaper (VB)

[Meanie]

Problems setting wallpaper

Hi, Ive been writing a program to change the wallpaper, but it just wont work

Heres the code Ive been using to set new wallpaper

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

   Const SPI_SETDESKWALLPAPER = 20
   Const SPIF_UPDATEINIFILE = &H1
   Const SPIF_SENDWININICHANGE = &H2

   Private Sub SetWallpaper()

       Dim lReturnVal as Long

       lReturnVal = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "C:\Temp\Test.bmp", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
    End Sub

When SetWallpaper() is called (at a press of a button, atm), the whole desktop flickers but the wallpaper doesnt change, and no amount of refreshing will help.

Also, lReturnVal returns a non-zero character, and that means success (right?) so its obviously working, except it isnt.

Is there is anything Im missing?

 

[Divil]

Try changing all Long parameters in your declare to Integers, see if that helps.

 

[Meanie]

Cheers man, that worked.