Я нашел программный код (см. ниже) все работет прекрасно, НО только с BMP файлами, а с JPG не хочет работать. Помогите, как лучше сделать? Или jpg сначала конвертировать в bmp (но тогда подскажите как это сделать программно) или ...?
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SETDESKWALLPAPER = 20
Public Sub SetWallpaper(File As String)
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, ByVal File, True
End Sub
Использование: SetWallpaper "me_pc.bmp"