vb多线程中调用dll一个问题

Question

我在vb中，用下列方式创建多线程
Private hthread1 As Long
Private hthread2 As Long
Private ithread1 As Long
Private ithread2 As Long
Private Sub Command1_Click()
    ithread1 = CreateThread(ByVal 0&, ByVal 0&, AddressOf calldll, 
                            ByVal 0&,  ByVal 0&, hthread1)
    CloseHandle ithread1
End Sub
public sub calldll()
   dim mmm as new test.class1   'test是一个dll
   mmm.proc
end sub结果运行到mmm.proc时，就出错，错误信息如下：
"run-time error
 automation error
 coinitialize has not been called." 请问要怎么解决？

Answer 1

这个好像不是多线程的问题，是你的dll有问题吧？你把calldll拉出来单独测试，看看还有没有问题