Visual Basic Programming Code Examples
Visual Basic > Code Snippets Code Examples
Change the windows wallpaper
1
2
3
4
5
6
7
8
9
10
11
12
Change the windows wallpaper
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
Public Const SPI_SETDESKWALLPAPER = 20
Dim lngResult As Long
Dim strBmp As String
strBmp = "c:\yourimage.bmp"
lngResult = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)