Also ueber die Windows-API kannst du das so loesen
Code: 
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, (PCHAR)filename, SPIF_SENDCHANGE);
Wie das aber in VB zu implementieren ist, kann ich nicht sagen ...