Автозапуск программы при загрузке ОС и ее сворачивание в трей

Public Class frmMain
    'Объявление переменной с путём, куда будет записываться автозапуск программы
    Public autostart As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
 
    '***************************************************************************************
    '[Начало] Манипуляции с формой и треем
    '*******************************************************************************
 
    'Нажатие на иконку в трее, чтобы свернуть\развернуть программу.
    Private Sub NotifyIcon1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
        'Иконка в трее реагирует только на Mouse1(левая кнопка мыши)
        If e.Button = Windows.Forms.MouseButtons.Left Then
            If Me.WindowState = FormWindowState.Normal Then
                'Свернуть форму в трей
                Me.WindowState = FormWindowState.Minimized
            Else
                'Возстановление формы из трея. По одиночному клику.
                Me.Show()
                Me.WindowState = FormWindowState.Normal
            End If
        End If
    End Sub
 
    'Выход из программы. Только так можно выйти, потому что программа будет сворачиваться в трей при нажатии на "крестик".
    Private Sub ВыходToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
        'Убирание иконки из трея, чтобы при закрытии программы, иконка в трее не висела в виде фантома.
        Me.NotifyIcon1.Icon = Nothing
        End
    End Sub
 
    'При сворачивании программы, она прячется в трей.
    Private Sub frmMain_SizeChanged(sender As Object, e As System.EventArgs) Handles Me.SizeChanged
        If Me.WindowState = FormWindowState.Minimized Then
            Me.Hide()
        End If
    End Sub
 
    'Закрытие программы(нажатие на крестик).
    Private Sub frmMain_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'Если нажал на крестик человек(User)
        If e.CloseReason = CloseReason.UserClosing Then
            'Не закрывать форму(крестик работать не будет)
            e.Cancel = True
            'Свернуть форму в трей
            Me.WindowState = FormWindowState.Minimized
        End If
    End Sub
 
    '*******************************************************************************
    '[Конец] Манипуляции с формой и треем
    '***************************************************************************************
 
 
    'Кнопка добавления программы в автозапуск.
    Private Sub btnAddAutoRun_Click(sender As System.Object, e As System.EventArgs) Handles btnAddAutoRun.Click
        autostart.SetValue("Название_Программы v1.0.0.0", Application.ExecutablePath)
    End Sub
 
    'Кнопка удаление программы из автозапуска.
    Private Sub btnDelAutoRun_Click(sender As System.Object, e As System.EventArgs) Handles btnDelAutoRun.Click
        autostart.DeleteValue("Название_Программы v1.0.0.0")
    End Sub
End Class

'Загрузка формы при первом запуске приложения.
Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Minimized
End Sub

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\", "Моя прога", Application.ExecutablePath & " /minimize")

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Args() As String = System.Environment.GetCommandLineArgs()
        If Args.Length > 1 AndAlso Args(1) = "/minimize" Then
            Me.WindowState = FormWindowState.Minimized
            Me.ShowInTaskbar = False
        End If
    End Sub

    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        WindowState = FormWindowState.Normal
        Me.ShowInTaskbar = True
    End Sub

    'Кнопка добавления программы в автозапуск.
    Private Sub btnAddAutoRun_Click(sender As System.Object, e As System.EventArgs) Handles btnAddAutoRun.Click
        autostart.SetValue("Название_Программы v1.0.0.0", Application.ExecutablePath)
    End Sub