• Home
 · 
• Windows System Services
 · 
• Wallpaper Changer

Wallpaper Changer

If you are wondering how you can change your desktop picture this code is the awnser. It's very easy to understend and it's very short.

Rate Wallpaper Changer

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Option Explicit
'This code is developed by Ivan Uzunov 
'e-mail: [email protected]
'Just add this code on a form add a Command1 and press F5 
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()
Dim WallPaper As Long
  'Just change "C:\REDCAP.bmp" with a existing bitmap on your computer
  WallPaper = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "C:\REDCAP.bmp", 0)
End Sub