Dim key As RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", True) Select Case selectedStyle Case Style.Stretched key.SetValue("WallpaperStyle", "2") key.SetValue("TileWallpaper", "0") Case Style.Centered key.SetValue("WallpaperStyle", "1") key.SetValue("TileWallpaper", "0") Case Style.Tiled key.SetValue("WallpaperStyle", "1") key.SetValue("TileWallpaper", "1") End Select |