Questo è quanto ho fatto ma mi carica l'immagine su entrambi gli schermi...........



Public Class Form1
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


Const ImagePath As String = "E:\ChiesaUCEBI\UCEBI\logoUCEBI\ucebi_monitor. png" ' Path del file immagine
Const ImageStyle As Integer = 2 ' Stile della visualizzazione dell'immagine


Try


Dim Key As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Contr ol Panel\Desktop", True)
Dim WallpaperStyle As Object = Nothing ' Stile della immagine
Dim TileWallpaper As Object = Nothing ' Stile della immagine affiancata




Key.SetValue("WallpaperStyle", "2")
Key.SetValue("TileWallpaper", "0")
Key.Close()


SystemParametersInfo(20, 0, ImagePath, &H1) ' Imposta lo sfondo del desktop


Catch ex As Exception
MessageBox.Show(ex.Message, "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub




End Class