Error en un código [Para cambiar el fondo de pantalla]

[USUARIO_DE_SOFTWARE_LIBRE]

hola, encontre  algunos codigos de vb... y este que es para cambiar el fondo de pantalla me salta error...:

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

Private Sub Form_Load()
Dim fallo As Integer
fallo = SystemParametersInfo(20, 0, "C:\WINDOWS\FONDO.BMP", 0)
End Sub

el error me lo marca en lo que está antes de private sub form_load()...me lo marca en rojo... yo pense que tenia que ponerlo en un modulo pero no va...
gracias de antemano

[-Riven-Ward-]

Código [Seleccionar] Expandir

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

Ponlo así:

Código [Seleccionar] Expandir

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

Esque me parece que se tienen que declarar esas funciones "públicas", no "privadas".

Salu2!

[Thaorius]

Te saque esto de la APi-Guide:

Código [Seleccionar] Expandir

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "C:\imagen.bmp", SPIF_UPDATEINIFILE

Saludos

[USUARIO_DE_SOFTWARE_LIBRE]

Código [Seleccionar] Expandir

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

Ponlo así:

Código [Seleccionar] Expandir

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

Esque me parece que se tienen que declarar esas funciones "públicas", no "privadas".

Salu2!

ma salta error igual que antes...

Te saque esto de la APi-Guide:

Código [Seleccionar] Expandir

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "C:\imagen.bmp", SPIF_UPDATEINIFILE

Saludos

en este, no pasa nada, el fondo queda igual...

[Thaorius]

Bueno, la verdad no se yo lo saque de la apiguide.

Saludos