Программа не запускается на Windows 10

Shell("shutdown -l")
My.Computer.FileSystem.WriteAllText(...)
Me.TopMost
Me.Activate

Me.ShowInTaskbar

кнопка 1
        Shell("shutdown -l") 
    
 
кнопка 
        
        My.Computer.FileSystem.WriteAllText("C: путь к файлу .txt", vbCrLf & Environ("USERNAME") & " текст, который записывается в файл " & DateTime.Now, True)
        Me.Close() 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'интервал установлен 1
        Me.TopMost = True 
 
        Me.Activate() 
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
         My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", "название", My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe")
        Label3.Text = "Программа добавлена в автозагрузку!"
    End Sub
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        ' Удаляем из автозагрузки нашу программу
        Dim Start As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
        Start.DeleteValue("название")
        Label3.Text = "Программа удалена из автозагрузки!"
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ShowInTaskbar = False 
    End Sub
End Class

Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Shell("shutdown -l") ' выход из системы
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
 
        My.Computer.FileSystem.WriteAllText("C:\...\name.txt", vbCrLf & Environ("USERNAME") & " текст " & DateTime.Now, True)
        Me.Close() 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'интервал 1
        Me.TopMost = True 
 
        Me.Activate() 
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        
        My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", "Название", My.Application.Info.DirectoryPath & "\" & My.Application.Info.AssemblyName & ".exe")
        Label3.Text = "Уведомление"
    End Sub
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        Dim Start As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
        Start.DeleteValue("Название")
        Label3.Text = "Уведомление"
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ShowInTaskbar = False 
    End Sub
End Class