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

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

用vb二次开发sw时，重新生成零件图时总是弹出错误：“对象变量或with块变量未设置” 
我想利用以下代码（该代码的核心部分是来自SolidWorks自带的API帮助中的源码）实现从SolidWorks2009中取出当前已经打开零件实体的质量，不知道为什么！各位高手有谁知道这是怎么回事？请指教，谢谢！ 我的Q是：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  --------------------编程问答-------------------- UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP --------------------编程问答-------------------- 这种错误很多人问过了。
绝大多数都是因为对象创建失败的原因，创建对象后你应该先判断是否创建成功：
if swApp is nothing then
...
else
...
end if

补充：VB ,  VBA