[RESOLVED] Set desktop wall paper and screensaver options

[csKanna]

Hi,

I want to set Desktop Wall paper to "None" and Screen Saver to "3D Text" through VB.

Please help me on this.

Thanks in advance.

Kanna.

[cssriraman]

'To set wall paper to none.
Private Declare Function SystemParametersInfo Lib "user32" Alias _
    "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
    ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
 
Sub ChangeWallpaper()
    SystemParametersInfo 20, 0, "", 1
End Sub