下面代码是在VB的form，调用eDrawing插件，需要应用CoCreateInsTance语句。
在VB中运行有问题，在VB2010运行正常。
*************
在VB中，CoCreateInsTance应用于EModelViewControl1.CoCreateInstance("EModelViewMarkup.EModelMarkupControl")没有成功？
Private Sub Command1_Click()
Dim m As New EModelViewMarkup.EModelMarkupControl
m = EModelViewControl1.CoCreateInstance("EModelViewMarkup.EModelMarkupControl")
m.AddStamp "D:\a.png", 0, 0, 0.1, 0.1
End Sub
Private Sub Form_Load()
Dim tmp
With EModelViewControl1
.OpenDoc "D:\SaddleS.Easm", False, False, False, ""
End With
End Sub
************************
在VB2010运行正常。
Dim markup As EModelMarkupControl = DirectCast(axEModelViewControl1.CoCreateInstance("{5BBBC05A-BD4D-4e3b-AD5B-51A79DFC522F}"), EModelMarkupControl)
*****************************
到现在也没搞懂，原因是对CoCreateInstance语句的应用不理解。
在VB2010中， DirectCast + CoCreateInstance的组合，运行成立？
在VB中，直接用CoCreateInstance运行不成立？
------解决思路----------------------
你的代码里面调用的CoCreateInstance函数是EModelViewMarkup.EModelMarkupControl的成员函数，而不是VB，也不是VB.net的函数，所以请咨询EModelViewMarkup.EModelMarkupControl的提供商吧。
------解决思路----------------------
你的代码里面调用的CoCreateInstance函数是EModelViewMarkup.EModelMarkupControl的成员函数，而不是VB，也不是VB.net的函数，所以请咨询EModelViewMarkup.EModelMarkupControl的提供商吧。