تغيير خلفية سطح المكتب

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20


Private Sub Command1_Click()
'Place the following code in under a command button or in a menu, etc...

Dim ChangeWP
Dim source As String
source = "C:\windows\ÇáÅÚÏÇÏ.bmp"
ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, source, 0)

End Sub