devxlogo

SetWallPaper – Change the desktop’s wallpaper

SetWallPaper – Change the desktop’s wallpaper

Private Function SystemParametersInfo Lib "user32" Alias _    "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _    ByVal lpvParam As Any, ByVal fuWinIni As Long) As LongConst SPI_SETDESKWALLPAPER = 20' Change the system's desktop wallpaper to a given bitmap file' If you omit the argument the desktop wallpaper is cleared'' Returns True if successful, False otherwiseFunction SetWallPaper(Optional ByVal sFile As String) As Boolean    SetWallPaper = (SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, sFile, _        0)  0)End Function

devx-admin

Share the Post: