Private Declare Function SystemParametersInfo Lib "user32" Alias _ "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _ ByRef lpvParam As Any, ByVal fuWinIni As Long) As LongConst SPI_SETDESKWALLPAPER = 20Const SPIF_SENDWININICHANGE = &H2Const SPIF_UPDATEINIFILE = &H1' change the desktop wallpaper' returns True if successful'' omit the argument or pass a null string to' remove the current wallpaperFunction SetWallpaper(Optional ByVal FileName As String) As Boolean If SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal FileName, _ SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE)Then SetWallpaper = True End IfEnd Function


Westinghouse Builds Polish Power Plant
Westinghouse Electric Company and Bechtel have come together to establish a formal partnership in order to design and construct Poland’s inaugural nuclear power plant at