求助: VB连接SE怎么连不上

我是刚开始学习使用SE二次开发的超级菜鸟,下面这个程序怎么启动SE啊,求各位帮帮忙忙,很急,谢谢!
Private Sub Command1_Click()
Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgePart.PartDocument

On Error Resume Next

Set objApp = GetObject("SolidEdge,Application")

If Err Then
Err.Clear
Set objApp = CreateObject("SolidEdge,Application")
Set objDoc = objApp.Documents.Add(SolidEdge.PartDocument)
objApp.Visible = True
Else
Set objDoc = objApp.ActiveDocument
End If
Call objApp.Active
Set objApp = Nothing

Set objDoc = Nothing

SE的对象都引用了,点击命令按钮就是没反应,我不知道错误在哪里,请各位指教!

看不懂！
不过可给你参考：https://www.icad.com.cn/html/2005-4-18/2005418150720.asp

您没有引用Solid Edge的对象

带有SE的对象我都引用了,可就是没反应,是不是中文V16版本不能二次开发啊,还请各位指点一下

可参考程序带的例子。

z注意逗号与句号的区别：GetObject("SolidEdge,Application")

请问您这个问题您最后怎么解决的啊。