Private Declare Auto Function SystemParametersInfo Lib "user32.dll" ( _
   ByVal uAction As Integer, ByVal uParam As Integer, _
   ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer

 Private Const SPI_SETDESKWALLPAPER As Integer = &H14
 Private Const SPIF_UPDATEINIFILE As Integer = &H1
 Private Const SPIF_SENDWININICHANGE As Integer = &H2

 Public Sub SetWallpaper(ByVal filename As String)
   SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, filename, _
   SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
 End Sub