001集——vb.net打开CAD指指定路径文件（vb.net入门）

 首先打开vsto,创建窗体，添加一个按钮，双击按钮录入代码：

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim cad As Object
        cad = CreateObject("autocad.Application")
        cad.Visible = True
        cad.documents.Add

        cad.application.documents.Open("D:\ZD\你的文件.dwg")
    End Sub
End Class

由下图可见，已打开默认cad版本：

修改下语句，提示如下：

网上还没搜到解决方案，难道每次运行程序需要重新打开一个CAD应用程序吗？