>How do I set the windows wallpaper? I am assuming it is an API call but...I don't know what it is.

Option Explicit

'**************************************
'Windows API/Global Declarations for :Daily Static
'**************************************

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 SPIF_UPDATEINIFILE = &H1
Public Const SPI_SETDESKWALLPAPER = 20
Public Const SPIF_SENDWININICHANGE = &H2

public function CWPaper(strNewPaperWithPath as string)
    Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, strNewPaperWithPath, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
end function

TWH