Set Wallpaper
//Pada module !
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
//Pada form
Private sub coomand1_click()
Dim ChangeWP
ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,app.path & “\gambar.jpg”, 0)
End Sub
0 komentar: to “ Set Wallpaper ”
Posting Komentar