VB6 Code - Fungsi Untuk Merubah Desktop Wallpaper

Mengenai procedure VB6 untuk mengganti atau merubah gambar desktop (desktop wallpaper) - Ini merupakan procedure VB6 yang digunakan untuk mengganti gambar yang terdapat pada desktop (desktop wallpaper). Dengan menggunakan 1 buah fungsi API SystemParametersInfoA dan beberapa konstanta (SPIF_SENDWININICHANGE, SPIF_UPDATEINIFILE, SPIF_SETDESKWALLPAPER)

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 
 
Private Const SPIF_SENDWININICHANGE = &H2 
Private Const SPIF_UPDATEINIFILE = &H1 
Private Const SPIF_SETDESKWALLPAPER = 20 
 
Public Function ChangeWallPaper(imgFile As String) 
    Call SystemParametersInfo(SPIF_SETDESKWALLPAPER, 0&, imgFile, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE) 
End Function

Adapun cara menggunakan procedure VB6 diatas adalah sebagai berikut:

Private Sub Command1_Click() 
    Call ChangeWallPaper("C:\Windows\Blue.bmp") 
End Sub 

Demikian procedure VB6 untuk mengganti atau merubah desktop wallpaper.