ClickOnce Anwendung immer mit Admin Rechten ausführen

<requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />

Imports System
Imports System.Diagnostics
Imports System.Reflection
Imports System.Security.Principal
Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim wi = WindowsIdentity.GetCurrent()
        Dim wp = New WindowsPrincipal(wi)
        Dim runasAdmin As Boolean = wp.IsInRole(WindowsBuiltInRole.Administrator)
       
        'Wenn Anwendung nicht mit Admin-Rechten gestartet wurde ...  
        If Not runasAdmin Then               
            Dim processInfo = New ProcessStartInfo(Assembly.GetExecutingAssembly().CodeBase)
            'hier wird festgelegt das die Anwendung als Admin gestartet werden soll  
            processInfo.UseShellExecute = True
            processInfo.Verb = "runas"  
            Try
                'starte Anwendung als Admin (UAC-Dialog erscheint)  
                Process.Start(processInfo)                     
            Catch ex As Exception
                MsgBox("Der Benutzer hat nicht erlaubt das die Applikation Administratorrechte erhält")  
            End Try
            'schließe die alte Anwendung ohne Admin-Rechte  
            Application.Exit()                                     
        End If
    End Sub
End Class