VB程序怎么默认让管理员运行

发现win7即使用管理员登陆，运行程序的时候还是要选run as administrator。
做了一个VB程序，想默认用管理员运行。 

改UAC设置，
<requestedExecutionLevel level="asInvoker" uiAccess="false" />

只能正常生产可执行文件，但是不能正常发布安装文件，发布的时候会报错：
error MSB3190: ClickOnce does not support the request execution level 'requireAdministrator'.

如果不改任何东西，发布之后，在运行setup.exe的时候点run as administrator，只有运行完setup.exe,第一次运行的程序的时候是administrator，以后运行程序就不是了。

怎么发布一个版本始终默认为管理员运行？
--------------------编程问答-------------------- 貌似VB6里面没法实现,
不过这个可以用安装安装软件实现. --------------------编程问答-------------------- Windows7确实很麻烦  
要么启用Administrators用户登陆电脑
要么右键以管理员身份执行程序 --------------------编程问答-------------------- 更加安全总是伴随着更加麻烦。

补充：VB ,  VBA