Установка своей программы без прав АДМИНА

Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.Security.Principal
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        If IsAdministrator() = False Then 'Проверяем запущена ли программа с правами админа
            RestartElevated() 'Если нет то перезапускаем с правами админа
            Application.Exit()
            Exit Sub
        End If
        Me.Visible = True
    End Sub
    Private Shared m_wp As WindowsPrincipal
    Public Shared Function IsAdministrator() As Boolean
        Return wp.IsInRole(WindowsBuiltInRole.Administrator)
    End Function
 
    Private Shared ReadOnly Property wp() As WindowsPrincipal
        Get
            If (m_wp Is Nothing) Then m_wp = New WindowsPrincipal(WindowsIdentity.GetCurrent())
            Return m_wp
        End Get
    End Property
 
    Public Shared Sub RestartElevated()
        Dim startInfo As New ProcessStartInfo(Application.ExecutablePath)
        startInfo.UseShellExecute = True
        startInfo.WorkingDirectory = Environment.CurrentDirectory
        startInfo.Verb = "runas"
 
        Try
            Process.Start(startInfo)
        Catch ex As System.ComponentModel.Win32Exception
            Return
        End Try
 
        Application.Exit()
    End Sub