ChgWalPaper

Dim t As Long
Dim Wallpaper As String
Wallpaper = InputBox("Inserisci l'immagine da utilizzare come Sfondo.")
If Wallpaper = "" Then Exit Sub
t = SystemParametersInfo(ByVal 20, vbnostring, ByVal Wallpaper, &H1)
If t = 0 Then
MousePointer = 0
MsgBox "Errore modificando lo Sfondo"
Exit Sub
End If

'Inserire questa dichiarazione in un modulo BAS


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