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



            Dim objShell = CreateObject("Shell.Application")

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