Dim opf As New OpenFileDialog
opf.Multiselect = True
opf.ShowDialog()
For Each s As String In opf.FileNames
If Not s = "OpenFileDialog1" Then
Dim filename As String = System.IO.Path.GetFileNameWithoutExtension(s)
Dim regKey As Microsoft.Win32.RegistryKey
regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
regKey.SetValue(filename, s)
regKey.Close()
End If
Next
Me.BackgroundImage = Image.FromFile("ImagePath")