اجرای یک App بصورت Run As Administrator در برنامه

سلام
من ی برنامه دارم که می خوام نرم افزارها رو بصورت Run As Admin.... اجرا کنم در حالی که برنامه اصلی یبصورت عادی اجرا شده:

Process.Start(si)

ی راه پیدا کردم:

            Dim objShell = CreateObject("Shell.Application")

            objShell.ShellExecute(e.ClickedItem.Tag.ToString, "", "", "runas", 1)

سلام اینم تست کنید:

Dim proc As Process = New Process

proc.StartInfo.FileName = fileName

proc.StartInfo.UseShellExecute = true

proc.StartInfo.Verb = "runas"

proc.Start