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

Top Careers at Microsoft
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job