Перезапуск программы от имени Администратора - Visual Basic .NET

Private Sub RunAsAdmin()
            If IsAdmin() = False Then
                Dim P As New Process
                P.StartInfo.FileName = Application.ExecutablePath
                P.StartInfo.Verb = "runas"
                P.Start()
                Process.GetCurrentProcess.Kill()
            Else
                Console.WriteLine("Application is now running as Admin")
            End If
        End Sub
        Private Function IsAdmin() As Boolean
            Try
                Dim User As WindowsIdentity = WindowsIdentity.GetCurrent
                Dim Principal As WindowsPrincipal = New WindowsPrincipal(User)
                Return Principal.IsInRole(WindowsBuiltInRole.Administrator)
            Catch ex As Exception
                Return False
            End Try
        End Function