خلفيه سطح المكتب

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

Const SPI_SETDESKWALLPAPER = 20

Const SPIF_UPDATEINIFILE = &H1

ثم حدد مسار الصورة وليكن MYpicPath ثم استخدم الكود التالي

    SystemParametersInfo SPI_SETDESKWALLPAPER, 0, MYpicPath, SPIF_UPDATEINIFILE