[3booody]

لتغيير الخلفية

كود :

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 SE = 20
    Private Const UP = &H1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using dlg As New OpenFileDialog
            dlg.ShowDialog()
            SystemParametersInfo(SE, 0, dlg.FileName, UP)
        End Using
    End Sub