"打开"对话框，点击“打开”按钮无反应（Solidworks API用VB语言）

在VB中调用了以下程序，弹出“打开”对话框，点击“打开”按钮，无反应。
这段程序的问题在哪？
设计目的：点击“打开”按钮，可以打开选中的文件

Private Sub cmdload3d_Click()
Dim swApp As SldWorks.SldWorks
Dim fn As String
Dim FileName As String
Dim longwarnings As Long
Dim longstatus As Long
Set swApp = Application.SldWorks

With CommonDialog1
.flags = &H4
.CancelError = True
End With

CommonDialog1.Filter = "SolidWorks文件(*.sldprt;*.sldasm;*.slddrw)|*.sldprt;*.sldasm;*.slddrw|零件(*.prt;*.sldprt)|*.prt;*.sldprt|装配体(*.asm;*.sldasm)|*.asm;*sldasm|工程图(*.drw;*.slddrw)|*.drw;*.slddrw|All Files (*.*)|*.* "
CommonDialog1.ShowOpen
FileName = swApp.OpenDoc6("E:\", 2, 0, "", longstatus, longwarnings)
fn = CommonDialog1.FileName
End sub

你需要什么反应？

CommonDialog1.ShowOpen只是选择你要打开的文件（也就是返回一个文件路径给你），至于具体的打开操作，还得自己编程实现。

[Quote=引用 2 楼 veron_04 的回复:]
CommonDialog1.ShowOpen只是选择你要打开的文件（也就是返回一个文件路径给你），至于具体的打开操作，还得自己编程实现。
这个打开操作怎么写程序呢？
请赐教