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