Windows # Codice per cambiare lo sfondo di Windows
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 |