Happy Codings - Programming Code Examples

Visual Basic Programming Code Examples

Visual Basic > Code Snippets

Change the windows wallpaper



Change the windows wallpaper

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

Dim lngResult As Long
Dim strBmp As String

strBmp = "c:\yourimage.bmp"
lngResult = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)

You can not get much done in life if you only work the days when you feel good.

Jerry West

The function of education is to teach one to think intensively and to think critically. Intelligence plus character - that is the goal of true education.

Martin Luther King, Jr.

As with the butterfly, adversity is necessary to build character in people.

Joseph B. Wirthlin

You can not fall if you do not climb. But there is no joy in living your whole life on the ground.

Anonymous

That is what learning is. You suddenly understand something you've understood all your life, but in a new way.

Doris Lessing

Whenever you find yourself on the side of the majority, it is time to reform (or pause and reflect).

Mark Twain

Anyone can hide. Facing up to things, working through them, that is what makes you strong.

Sarah Dessen

The competitor to be feared is one who never bothers about you at all, but goes on making his own business better all the time.

Henry Ford