MODIFICATION DU PAPIER PEINT/FOND D'ÉCRAN DU BUREAU

'**********************************
'Dans la partie déclaration du Form
'**********************************
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



'*******************
'Dans le programme :
'*******************

''Variable du chemin complet de l'image
' (si l'image est dans le répertoire de base Windows - c:\Windows / c:\Winnt - , la variable peut être tout simplement le nom du fichier)
Dim Fond as String
Fond="c:\image.bmp"
SystemParametersInfo 20, 0, Fond, 1