[ربيع]

نحمده ونصلي على رسوله الكريم

كود :

Using rk As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Control Panel\Desktop\", True)
    Dim iPath As String = rk.GetValue("Wallpaper").ToString()
    pictureBox1.Image = Image.FromFile(iPath)
    pictureBox1.SizeMode = PictureBoxSizeMode.Zoom
    label1.Text = System.IO.Path.GetFileNameWithoutExtension(iPath)
End Using