Fondo de Escritorio.....

[MANULOMM]

Hola Estoy Tratando de Hacer una aplicacion que cambie el fondo del escritorio de windowx xp....
Pero no meda aqui posteo mi codigo,

Código [Seleccionar] Expandir


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

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


[~~]

Hola:

Te faltan las comillas:

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

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


kedaria asi 
1S4ludo