Setting the wallpaper in VB.NET

I need to be able to set the desktop wallpaper within my VB.NET application. Please bid on creating a sub/function that accepts a filename. The sub/function will then set the Windows Wallpaper. I have seen some code that simply changes the registry and required a reboot to take affect. I do not want that, the background image should change immediately. I just need a simple sub or function like... Private function SetWallPaper(byval filename as string) as boolean ....code to set the wallpaper... End Function (this was easy in VB6) ## Deliverables 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Complete ownership and distribution copyrights to all work purchased. ## Platform As many Windows version as possible. 2000 and XP are a must. Win9x would be great too.