How can I set the windows wallpaper to my picture by VB code?

THANK YOU!