真的是 一个基本问题，请指点！！

Question

我想通过先调用 CommonDialog1.ShowOpen 对话框，然后   '调用打开文件的过程打开文件。
   OpenFile (CommonDialog1.FileName)
  可是运行时提示子程序或函数未定义 具体如下：  
 
Private Sub mnuFileOpen_Click ()
   'CancelError 为 True。
   On Error GoTo ErrHandler
   '设置过滤器。
   CommonDialog1.Filter = "All Files (*.*)|*.*|Text _
   Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
   '指定缺省过滤器。
   CommonDialog1.FilterIndex = 2   '显示“打开”对话框。
   CommonDialog1.ShowOpen 
   '调用打开文件的过程。
   OpenFile (CommonDialog1.FileName)
   Exit SubErrHandler:
'用户按“取消”按钮。
   Exit Sub
End Sub应该在哪里定义openfile函数呢？

Answer 1

随便，在窗体或任何一个模块里面！
如果在同一个窗体里面，定义  Private 也无所谓，如果在模块里面，定义成public的，如果在其他窗体，就要用FromName.OpenFile调用  ，并且要是public的！

Answer 2

如果你不想定义FSO文件，直接调用Open语句就可以了，
如 
open Commondialog1.fileName for input as #1

Answer 3

我是想把已存的文件，调出来。
   就象WINDOWS下点击开的效果。
   我在MSDN中看到的打开文件，可是还是只打开了打开文件的对话框：（ Private Sub mnuFileOpen_Click ()
   'CancelError 为 True。
   On Error GoTo ErrHandler
   '设置过滤器。
   CommonDialog1.Filter = "All Files (*.*)|*.*|Text _
   Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
   '指定缺省过滤器。
   CommonDialog1.FilterIndex = 2   '显示“打开”对话框。
   CommonDialog1.ShowOpen 
   '调用打开文件的过程。
   OpenFile (CommonDialog1.FileName)
   Exit SubErrHandler:
'用户按“取消”按钮。
   Exit Sub
End Sub