My.Settings.MitWindowsStarten = chb_MitWindowsStarten.Checked
        My.Settings.StartenAlleBenutzer = rab_startenAlleBenutzer.Checked
        If My.Settings.StartenAlleBenutzer = True Then
            startMenuOrdner = System.Environment.GetFolderPath( _
              Environment.SpecialFolder.CommonStartup)
        Else
            startMenuOrdner = System.Environment.GetFolderPath( _
              Environment.SpecialFolder.Startup)
        End If
        linkpfad = startMenuOrdner & "\" & Application.ProductName & ".lnk"
        If My.Settings.MitWindowsStarten = True Then
            progPfad = Application.ExecutablePath
            ' Verknüpfung anlegen
            If IO.File.Exists(linkpfad) = False Then
                MsgBox(linkpfad & "....." & progPfad & "....." & _
                  Application.CompanyName & "....." & Application.StartupPath)
                MainForm.CreateShortcut(linkpfad, progPfad, "", _
                Application.CompanyName, Application.StartupPath)
            End If
        Else
            ' Verknüpfung löschen
            If IO.File.Exists(linkpfad) = True Then
                IO.File.Delete(linkpfad)
            End If
        End If

Public Function IsUserAdministrator() As Boolean
    Dim isAdmin As Boolean
    Try
        Dim user As WindowsIdentity = WindowsIdentity.GetCurrent()
        Dim principal As New WindowsPrincipal(user)
        isAdmin = principal.IsInRole(WindowsBuiltInRole.Administrator)
    Catch ex As UnauthorizedAccessException
        isAdmin = False
    Catch ex As Exception
        isAdmin = False
    End Try
    Return isAdmin
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
    Dim adminProcess As New System.Diagnostics.ProcessStartInfo With {
        .UseShellExecute = True,
        .WindowStyle = ProcessWindowStyle.Hidden,
        .WorkingDirectory = System.Environment.CurrentDirectory,
        .FileName = "AddToAllUsersAutostart.exe",
        .Verb = "runas"
    }
    Try
        System.Diagnostics.Process.Start(adminProcess)
    Catch exception As System.Exception
        MessageBox.Show(exception.Message, "MyApp", MessageBoxButtons.OK, _
          MessageBoxIcon.Exclamation)
    End Try
End Sub

Private Function AdminPermissions() As Boolean
      Using p As New Process()
         p.StartInfo = New ProcessStartInfo With {
            .FileName = "cmd",
            .RedirectStandardInput = True,
            .RedirectStandardOutput = True,
            .CreateNoWindow = True,
            .UseShellExecute = False}
         p.Start()
         p.StandardInput.WriteLine("net user " & Environment.UserName)
         p.StandardInput.WriteLine("exit")
         Do
            Dim line = p.StandardOutput.ReadLine
            If line Is Nothing Then Return False
            If line.ToLower.Contains("administrator") Then Return True
         Loop
      End Using
   End Function