Функция для размещения изображения на рабочем столе - VB

Формулировка задачи:

Кому нибудь, надеюсь, известно название функции в VB6.0 или в VBA чтобы программным путём размещать gif, bmp или jpg как картинку рабочего стола? Заранее благодарен

Решение задачи: «Функция для размещения изображения на рабочем столе»

textual
                            Листинг программы 
                        

                            Private 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
 
Function FF()
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Const SPIF_SENDWININICHANGE = &H2
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, 'C:WINNTШтукатурка.bmp', SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE
End Function
                        