Запуск программы при старте компьютера

    Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
        Me.Show()
        NotifyIcon1.Visible = False
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        NotifyIcon1.Visible = True
        Me.Hide()
    End Sub

        TextBox1.Text = System.Environment.GetFolderPath(Environment.SpecialFolder.Programs) & "\" & "Автозагрузка"

Dim p As String = ""
Dim d As String = ""
p = System.Environment.GetFolderPath(Environment.SpecialFolder.Startup)
d = (путь & "\ТвойЯрлык.lnk")
IO.File.Copy(IO.Directory.GetCurrentDirectory & "\ТвойЯрлык.lnk", d, False)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Dir(Application.StartupPath & "\MESSAGE") = vbNullString Then
            MsgBox("СООБЩЕНИЕ!")
            IO.File.Create(Application.StartupPath & "\MESSAGE")
        Else
            'Если файл есть.
        End If
    End Sub