Создание универсального автозагрузчика

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Reg As System.Object
       
        On Error Resume Next
        Reg = CreateObject("WScript.Shell")
        Reg.RegWrite("HKLM\Software\Microsoft\Windows\CurrentVersion" & _
        "\Run\" + OpenFileDialog1.SafeFileName, OpenFileDialog1.FileName()) 
        Reg = Nothing
 
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Reg As System.Object
        On Error Resume Next
        Reg = CreateObject("WScript.Shell")
        Reg.RegDelete("HKLM\Software\Microsoft\Windows\CurrentVersion" & _
        "\Run\" & OpenFileDialog1.SafeFileName)
        Reg = Nothing
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        OpenFileDialog1.ShowDialog()
        TextBox1.Text = OpenFileDialog1.FileName
    End Sub
End Class

Sub CreateAutoRunEntry(ByVal progPath As String)
    Dim keyName As String = Path.GetFileNameWithoutExtension(progPath)
    Registry.SetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", keyName, progPath)
End Sub
 
Sub DeleteAutoRunEntry(ByVal keyName As String)
    Using regKey As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        regKey.DeleteValue(keyName, False)
    End Using
End Sub