Question

vb编程，哪里出错了，提示是“子程序或函数未定义”

Private Sub Command1_Click()
Dim swapp As Object
Set swapp = greateobject("SldWorks.Application")
swapp.Visible = True
Set swapp = Nothing
End Sub

Answer 1

Set swapp = greateobject("SldWorks.Application")应该为Set swapp = Createobject("SldWorks.Application")

Answer 2

虽说没全懂，但这一句应该是：
Set swapp = Createobject("SldWorks.Application")

Answer 3

运行的时候，高亮颜色显示的就是错误的代码，就从该代码找找原因。