cambiare lo sfondo del desktop
codice:
Public Const SPI_SETDESKWALLPAPER = 20
Public Const SPIF_SENDWININICHANGE = &H2
Public Const SPIF_UPDATEINIFILE = &H1
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
Public Sub SetWallpaper(ByVal FileName As String)
Dim x As Long
x = SystemParametersInfo(SPI_SETDESKWALLPAPER, _
0&, FileName, SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE)
End Sub
Private Sub Command1_Click()
SetWallpaper "Put Address Here"
End Sub