Private Function SystemParametersInfo Lib "user32" Alias _ "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _ ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Const SPI_SETDESKWALLPAPER = 20
Function SetWallPaper(Optional ByVal sFile As String) As Boolean SetWallPaper = (SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, sFile, _ 0) <> 0) End Function |