Добавить программу в автозагрузку

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

        Imports IWshRuntimeLibrary

Dim NameApp As String = "Моя_прога.exe"
Dim name As String = "Имя ярлыка"
Dim pathLink = My.Computer.FileSystem.SpecialDirectories.Programs & "\Автозагрузка" 
Dim WshShell As New WshShell
Dim shortcut As WshShortcut
shortcut = WshShell.CreateShortcut(pathLink & "\" & name & ".lnk")
     With shortcut
                .TargetPath = Application.StartupPath & "\" & NameApp 'Путь до запускаемого файла
                .WindowStyle = 1
                .WorkingDirectory = Application.StartupPath
                .IconLocation = Application.StartupPath & "\" & NameApp & ", 0"
                .Arguments = ""
                .Save()
      End With
WshShell = Nothing
shortcut = Nothing