کد تغییر والپیپر رو میخاستم

با سلام
کد تغییر والپیپر رو میخاستم
ممنون

منتظرم!!!!!!!!!!!!!!!!!!!!!!!!!!

برای تغییر زمینه :

کد:

---


Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging
 
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
Private Const SPIF_UPDATEINIFILE = &H1

---

دکمه برای جستجوی عکس

کد:

---


Private Sub btnbrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbrowse.Click
Dim dlg As OpenFileDialog = New OpenFileDialog
dlg.Filter = "Image Files(*.bmp,*.gif,*.jpg)|*.bmp;*.gif;*.jpg"
dlg.ShowDialog()
PictureBox1.Image = Image.FromFile(dlg.FileName)
dlg.Dispose()
End Sub

---

دکمه برای ست کردن عکس

کد:

---


Private Sub btnset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnset.Click
Dim imagepath As String = Application.StartupPath & "\mynewwallpaper.bmp"
PictureBox1.Image.Save(imagepath, ImageFormat.Bmp)
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, imagepath, SPIF_UPDATEINIFILE)
End Sub

---

مرسی خیلا گلی به مولا