用vb二次开发sw时弹出错误：“对象变量或with块变量未设置”

explorer2009

用vb二次开发sw时，重新生成零件图时总是弹出错误：“对象变量或with块变量未设置”
我想利用以下代码（该代码的核心部分是来自SolidWorks自带的API帮助中的源码）实现从SolidWorks2009中取出当前已经打开零件实体的质量，不知道为什么！各位高手有谁知道这是怎么回事？请指教，谢谢！ 我的qq是：395248656，欢迎和我随时沟通！
  程序大概如下：swapp,part,l0...这些变量都已经定义。
Private Sub Command1_Click()
’首先我想打开我需要提取质量属性的零件
Dim swApp As Object '定义应用程序对象句柄
Dim Part As Object
Set swApp = CreateObject("SldWorks.Application")'创建一个应用程序
Set Part = swApp.OpenDoc("d:\我的文档\桌面\软件版权申请框图专题\软件源代码（自编为主）\立柱\立柱（零件图）.SLDPRT", swDocPART)
'打开一个已存在的实体文件
Set Part = swApp.ActivateDoc("立柱（零件图）.SLDPRT")

’以下是来自SolidWorks自带的API帮助中的源码（关于GetMassProperties函数）
Dim instance As SldWorks.Body2
Dim den As Double
Dim value As Object
den = 7350  ’定义密度值
value = instance.GetMassProperties(den) ‘把质量值返回到value中
End Sub

pfsr

发错区了