This works.

Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel", True)

Try
key = key.OpenSubKey("Desktop", True)

key.SetValue("Wallpaper", "YOUR IMAGE")
Catch ex As Exception

End Try