by Ivan Uzunov (5 Submissions)
Category: Windows System Services
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(3 Votes)
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.
VBcodersOption 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