Para definir uma figura que o Windows deverá utilizar como WallPaper, você irá precisar da função SystemParameterInfo da API e da constante SPI_SETDESKWALLPAPER. Para isto, você precisa das seguintes declarações de constantes e funções:

Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1
Declare Function SystemParametersInfo Lib "User" (ByVal uAction As Integer, _
                                                                                   ByVal uParam As Integer, _
                                                                                   lpvParam As Any, _
                                                                                   ByVal fuWinIni As Integer) As Integer

Então, você deve chamar as funções como a seguir:

Result% = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal BMPFile$, SPIFlags%)

Onde SPIFlags% é 0 (zero) se a mudança não deverá ser permanente ou então '(SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE)' se deverá ser perpetuada em outras sessões do Windows©. Nota: Esteja certo de incluir a palavra chave ByVal antes do nome do arquivo de bitmap.