Установка фона папки при ее создании

Imports System.Runtime.InteropServices
Imports System.IO
 
Public Class Form1
 
    Const SHCNE_ASSOCCHANGED As Long = &H8000000L
    Const SHCNF_IDLIST As UInteger = &H0UI
 
    Dim Pictures As New List(Of String)
    Dim R As New Random
    Dim Curr As Integer
 
    <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 Folder(ByVal Path As String, ByVal Picture As String)
 
        Dim FC As String = "[AveFolder]" & vbCrLf & "IconArea_Image=" & Picture & vbCrLf & "Recursive=1" 
 
        Dim PathToFolder As String = Path
        IO.File.WriteAllText(PathToFolder & "\" & "Desktop.ini", FC, System.Text.Encoding.Default)
        IO.File.SetAttributes(PathToFolder & "\" & "Desktop.ini", IO.FileAttributes.Hidden + IO.FileAttributes.System)
        With New IO.DirectoryInfo(PathToFolder)
            .Attributes = IO.FileAttributes.System
        End With
        AcceptRegistrySettings()
    End Sub
 
    Sub AcceptRegistrySettings()
        SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, IntPtr.Zero, IntPtr.Zero)
    End Sub
 
    Private Sub FileSystemWatcher_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs)
        Curr = R.Next(0, Pictures.Count - 1)
        If Pictures.Count > 0 Then
            Try
                Folder(e.FullPath, Pictures(Curr))
            Catch ex As Exception
            End Try
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        For Each DI As DriveInfo In IO.DriveInfo.GetDrives
            If DI.DriveType = DriveType.Fixed And DI.IsReady = True Then
                Dim FSW As New FileSystemWatcher With {.Path = DI.Name, .EnableRaisingEvents = True, .NotifyFilter = NotifyFilters.DirectoryName, .IncludeSubdirectories = True}
                AddHandler FSW.Created, AddressOf FileSystemWatcher_Created
            End If
        Next
 
        Show()
        If IO.Directory.Exists(Label1.Text) Then
            Pictures.AddRange(IO.Directory.GetFiles(Label1.Text, "*.jpg"))
            Pictures.AddRange(IO.Directory.GetFiles(Label1.Text, "*.png"))
            If Pictures.Count = 0 Then Label1.Text = "Папка не содержит изображений"
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FBD As New FolderBrowserDialog With {.Description = "Выберите папку с изображениями"}
        If FBD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Label1.Text = FBD.SelectedPath
            Pictures.Clear()
            Pictures.AddRange(IO.Directory.GetFiles(Label1.Text, "*.jpg"))
            Pictures.AddRange(IO.Directory.GetFiles(Label1.Text, "*.png"))
            If Pictures.Count = 0 Then Label1.Text = "Папка не содержит изображений"
        End If
    End Sub
 
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        If Me.WindowState = FormWindowState.Minimized Then
            Me.ShowInTaskbar = False
            NotifyIcon1.ShowBalloonTip(1000, "Инфо", "Программа свернута в трей", ToolTipIcon.Info)
        End If
    End Sub
 
    Private Sub NotifyIcon1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
        Me.WindowState = FormWindowState.Normal
        Me.ShowInTaskbar = True
    End Sub
 
 
    Private Sub ПоказатьОкноToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ПоказатьОкноToolStripMenuItem.Click
        Me.WindowState = FormWindowState.Normal
        Me.ShowInTaskbar = True
    End Sub
 
    Private Sub ЗакрытьПрограммуToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗакрытьПрограммуToolStripMenuItem.Click
        Close()
    End Sub
End Class