怎么样调用shell函数？

Question

我想调用ＳＨＥＬL函数来打开应该程序，但程序如下：
CommonDialog1.Filter = "All files(*.*)|*.*"
CommonDialog1.CancelError = True
On Error GoTo errhandler
CommonDialog1.ShowOpen
fn = CommonDialog1.FileName
Shell (fn,1)
可是会编译出错在Shell (fn,1)上，其出错信息是缺少＝．这是为什么呢？

Answer 1

dim id as long
id =shell (fn,1)

Answer 2

SHELL 函数
用于执行一个可执行文件
语法:Shell(完整路径[,执行方式])执行方式包括:
vbHide             0    窗口被隐藏，且焦点会移到隐式窗口。 
VbNormalFocus      1    窗口具有焦点，且会还原到它原来的大小和位置。 
VbMinimizedFocus   2    窗口会以一个具有焦点的图标来显示。 
VbMaximizedFocus   3    窗口是一个具有焦点的最大化窗口。 
VbNormalNoFocus    4    窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。 
VbMinimizedNoFocus 6    窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。 
说明如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。
----------------------
cike技术交流群 16874787 欢迎大家一起到那里学习