调用SolidWorksAPI的有关问题

调用SolidWorksAPI的问题
Set swApp = Application.SldWorks 运行到这里提示 ActiveX部件不能创建对象
我用VB编写的一个插件上的按钮，这个按钮的功能就是在打开SolidWorks情况下 自动画一条直线 下面是按钮对应的代码，错误在哪里，求教！

Private Sub Command4_Click()
Dim swApp As Object
Dim part As Object
Dim sttemp As Double
  xxw = 3 * rb * Cos(sttemp) / 2
  sttemp = st10 + stf * pi / 360
  yxw = 3 * rb * Sin(sttemp) / 2
  xxw2 = rb * Cos(sttemp + pi)
  yxw2 = rb * Sin(sttemp + pi)
Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc
boolstatus = part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
part.SketchManager.InsertSketch True
part.ClearSelection2 True
Dim SkLine As Object
Set SkLine = part.SketchManager.CreateLine(xxw, yxw, 0, xxw2, yxw2, 0)
part.SketchManager.InsertSketch True
part.ClearSelection2 True

End Sub

------解决方案--------------------
Set swApp = CreateObject("Application.SldWorks")