Background Tile Creator

Imports System.Windows.Forms
Imports System.Drawing
Imports System.IO
Imports Microsoft.Win32

Public Class dialog_WallPaper
  Dim imgPath As String = main.tilePath
  Dim oldPath As String
  Dim oldStyle As String
  Dim oldTile As String

  Private Sub dialog_WallPaper_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    main.WindowState = FormWindowState.Minimized

    oldPath = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "WallPaper", Nothing)
    oldStyle = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "WallpaperStyle", Nothing)

    oldTile = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "TileWallpaper", Nothing)

    SetWallpaper("1", "1")

  End Sub

  Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
    main.WindowState = FormWindowState.Maximized
    Me.DialogResult = System.Windows.Forms.DialogResult.OK
    Me.Close()
  End Sub

  Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click

    'set wp back to previous image and settings before closing

    My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "WallPaper", oldPath)

    My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "WallpaperStyle", oldStyle)

    My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "TileWallpaper", oldTile)

    WinAPI.SystemParametersInfo(WinAPI.SPI_SETDESKWALLPAPER, 0, oldPath, WinAPI.SPIF_UPDATEINIFILE Or WinAPI.SPIF_SENDWININICHANGE)
    main.WindowState = FormWindowState.Maximized
    Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
    Me.Close()
  End Sub


  Private Sub SetWallpaper(ByVal styleNum As String, ByVal tile As String)
    My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "WallpaperStyle", styleNum)

    My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "TileWallpaper", tile)

    My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop", "WallPaper", main.tilePath)

    WinAPI.SystemParametersInfo(WinAPI.SPI_SETDESKWALLPAPER, 0, main.tilePath, WinAPI.SPIF_UPDATEINIFILE Or WinAPI.SPIF_SENDWININICHANGE)

  End Sub
End Class