Problems setting wallpaper (VB)

[Meanie]

Problems setting wallpaper

 

Hi, I've been writing a program to change the wallpaper, but it just won't work

 

Here's the code I've 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 doesn't 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 isn't.

 

Is there is anything I'm missing?

[divil]

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

[Meanie]

Cheers man, that worked.