请教了，报错：未发现可创建的公共类部件。

Question

如题：这是啥问题啊，如何处理

Answer 1

8好意思，写漏了
拷过来的SAMPLE，VB调mapinfo（ole automation），涉及到回调，VB偶不熟，文档说要从SUB MAIN启动，我不知道sub main添加在哪里，想必因此出现上述错误。
类模块：class1
Public Sub QueryTool(ByVal CmdStr As String)
' ......
End Sub标准模块：
Global mi As Object
Global myCallback As Object窗体模块：
Private Sub Form_Load()
    Set mi = CreateObject("MapInfo.Application")
    mi.Do "Set Application Window " & Form1.hWnd
    Set myCallback = New Class1
    mi.SetCallback myCallback
    '......
End Sub