چگونه والپیپر را در vb تغییر بدیم؟

[pointer]

سلام .
چگونه والپیپر ویندوز را با ویژوال بیسیک تغییر بدیم؟

[mmssoft]

کد زیر رو بذارید توی جنرال :

Option Explicit
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با کد زیر تصویر رو تغییر بدید (فقط تصاویر BMP) :

SystemParametersInfo SPI_SETDESKWALLPAPER, 0, ChangeBackground.FileName, SPIF_UPDATEINIFILE
به جای FileName آدرس تصویر رو قرار بدید.