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

Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPIF_SENDWININICHANGE = &H2

SystemParametersInfo SPI_SETDESKWALLPAPER, i, _
"c:\windows\заклепки.bmp", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE