برنامج صغير لعرض الصور

هذا كود لتغيير خلفية سطح المكتب

General

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

Command Button

Dim ChangeWP
Dim source As String
source = "C:\windows\img.bmp"
ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, source, 0)