Поменять обои на рабочий стол через реестр

Public Class Form1
    Dim Pu, A, B, C As String
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            A = "HKEY_CURRENT_USER\ Control Panel\ Desktop"
            B = "Wallpaper"
            My.Computer.Registry.SetValue(A, B, Pu)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim FD As New OpenFileDialog
            FD.RestoreDirectory = True
            If FD.ShowDialog <> DialogResult.OK Then Exit Sub
            Pu = FD.FileName
            PictureBox1.Image = Image.FromFile(Pu)
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class

    Imports System.Security
    Imports System.Security.Principal
    Imports System.Security.AccessControl
 
    Imports Microsoft.Win32
 
    Private Sub TestMethod(ByVal subkey As String)
        ' Create access rule giving full control to the Administrator user.
        Dim rs As New RegistrySecurity()
        rs.AddAccessRule( New RegistryAccessRule( _
            "Administrator", _
            RegistryRights.FullControl, _
            InheritanceFlags.ContainerInherit Or InheritanceFlags.ObjectInherit, _
            PropagationFlags.InheritOnly, _
            AccessControlType.Allow))
 
        ' Get the registry key desired with ChangePermissions Rights.
        Dim rk As RegistryKey = Registry.LocalMachine.OpenSubKey( _
            subkey, _
            RegistryKeyPermissionCheck.ReadWriteSubTree, _
            RegistryRights.ChangePermissions Or RegistryRights.ReadKey)
 
        ' Apply the new access rule to this Registry Key.
        rk.SetAccessControl(rs)
 
        ' Get the registry key desired with ChangePermissions Rights.
        rk = Registry.LocalMachine.OpenSubKey( _
            subkey, _
            RegistryKeyPermissionCheck.ReadWriteSubTree, _
            RegistryRights.ChangePermissions Or RegistryRights.ReadKey)
 
        ' Apply the new access rule to this Registry Key.
        rk.SetAccessControl(rs)
 
        ' Open the key again with full control.
        rk = Registry.LocalMachine.OpenSubKey( _
            subkey, _
            RegistryKeyPermissionCheck.ReadWriteSubTree, _
            RegistryRights.FullControl)
 
        ' Set the security's owner to be Administrator.
        rs.SetOwner(New NTAccount("Administrator"))
 
        ' Set the key with the changed permission so Administrator is now owner.
        rk.SetAccessControl(rs)
    End Sub

Using key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Test", True)  
    Dim regSec As RegistrySecurity = key.GetAccessControl(AccessControlSections.All)  
    Dim rule As New RegistryAccessRule("Everyone", RegistryRights.FullControl, _  
        InheritanceFlags.None, PropagationFlags.None, AccessControlType.Allow)  
    regSec.AddAccessRule(rule)  
    key.SetAccessControl(regSec)  
End Using

    Private Sub SetFullAccesToRegKey(UserAccount As String, regRoot As Microsoft.Win32.RegistryKey, ByVal subkey As String)
        ' Create access rule giving full control to the Administrator user.
        Dim rs As New System.Security.AccessControl.RegistrySecurity()
        rs.AddAccessRule(New Security.AccessControl.RegistryAccessRule(UserAccount, Security.AccessControl.RegistryRights.FullControl, Security.AccessControl.InheritanceFlags.ContainerInherit Or Security.AccessControl.InheritanceFlags.ObjectInherit, Security.AccessControl.PropagationFlags.InheritOnly, Security.AccessControl.AccessControlType.Allow))
 
        ' Get the registry key desired with ChangePermissions Rights.
        Dim rk As Microsoft.Win32.RegistryKey = regRoot.OpenSubKey(subkey, Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree, Security.AccessControl.RegistryRights.ChangePermissions Or Security.AccessControl.RegistryRights.ReadKey)
 
        ' Apply the new access rule to this Registry Key.
        rk.SetAccessControl(rs)
 
        ' Get the registry key desired with ChangePermissions Rights.
        rk = regRoot.OpenSubKey(subkey, Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree, Security.AccessControl.RegistryRights.ChangePermissions Or Security.AccessControl.RegistryRights.ReadKey)
 
        ' Apply the new access rule to this Registry Key.
        rk.SetAccessControl(rs)
 
        ' Open the key again with full control.
        rk = regRoot.OpenSubKey(subkey, Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree, Security.AccessControl.RegistryRights.FullControl)
 
        ' Set the security's owner to be Administrator.
        rs.SetOwner(New Security.Principal.NTAccount(UserAccount))
 
        ' Set the key with the changed permission so Administrator is now owner.
        rk.SetAccessControl(rs)
    End Sub

SetFullAccesToRegKey(My.User.Name, Microsoft.Win32.Registry.CurrentUser, "Control Panel\Desktop")

Imports System.Runtime.InteropServices
Public Class Form1
    Dim Pu, A, B, C As String
    Private 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 Const SPI_SETDESKWALLPAPER = 20
    Const SHCNE_ASSOCCHANGED As Long = &H8000000L
    Const SHCNF_IDLIST As UInteger = &H0UI
    Private Const UPDATEINIFILE = &H1
    <DllImport("shell32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Public Shared Sub SHChangeNotify(ByVal wEventId As UInt32, ByVal uFlags As UInt32, ByVal dwItem1 As IntPtr, ByVal dwItem2 As IntPtr)
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs)
        Try
            SetFullAccesToRegKey(My.User.Name, Microsoft.Win32.Registry.CurrentUser, "Control Panel\Desktop") 'Yury Komar
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dlg As New OpenFileDialog
        dlg.Title = "Выберите фоновое изображение рабочего стола"
        dlg.Filter = ""
        If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = dlg.FileName
            PictureBox1.BackgroundImage = Image.FromFile(dlg.FileName)
            PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
        End If
    End Sub
 
    Private Sub На_стол_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
        SetFullAccesToRegKey(My.User.Name, Microsoft.Win32.Registry.CurrentUser, "Control Panel\Desktop") 'Yury Komar
 
        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, TextBox1.Text, UPDATEINIFILE)
 
    End Sub
 
    Private Sub SetFullAccesToRegKey(UserAccount As String, regRoot As Microsoft.Win32.RegistryKey, ByVal subkey As String)
        ' Create access rule giving full control to the Administrator user.
        Dim rs As New System.Security.AccessControl.RegistrySecurity()
        rs.AddAccessRule(New Security.AccessControl.RegistryAccessRule(UserAccount, Security.AccessControl.RegistryRights.FullControl, Security.AccessControl.InheritanceFlags.ContainerInherit Or Security.AccessControl.InheritanceFlags.ObjectInherit, Security.AccessControl.PropagationFlags.InheritOnly, Security.AccessControl.AccessControlType.Allow))
 
        ' Get the registry key desired with ChangePermissions Rights.
        Dim rk As Microsoft.Win32.RegistryKey = regRoot.OpenSubKey(subkey, Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree, Security.AccessControl.RegistryRights.ChangePermissions Or Security.AccessControl.RegistryRights.ReadKey)
 
        ' Apply the new access rule to this Registry Key.
        rk.SetAccessControl(rs)
 
        ' Get the registry key desired with ChangePermissions Rights.
        rk = regRoot.OpenSubKey(subkey, Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree, Security.AccessControl.RegistryRights.ChangePermissions Or Security.AccessControl.RegistryRights.ReadKey)
 
        ' Apply the new access rule to this Registry Key.
        rk.SetAccessControl(rs)
 
        ' Open the key again with full control.
        rk = regRoot.OpenSubKey(subkey, Microsoft.Win32.RegistryKeyPermissionCheck.ReadWriteSubTree, Security.AccessControl.RegistryRights.FullControl)
 
        ' Set the security's owner to be Administrator.
        rs.SetOwner(New Security.Principal.NTAccount(UserAccount))
 
        ' Set the key with the changed permission so Administrator is now owner.
        rk.SetAccessControl(rs)
    End Sub
End Class