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

[ROSTAM2]

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


Process.Start(si)

[ROSTAM2]

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


Dim objShell = CreateObject("Shell.Application")
objShell.ShellExecute(e.ClickedItem.Tag.ToString, "", "", "runas", 1)

[shahryari]

سلام اینم تست کنید:
Dim proc As Process = New Process
proc.StartInfo.FileName = fileName
proc.StartInfo.UseShellExecute = true
proc.StartInfo.Verb = "runas"
proc.Start