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

[staci]

我在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."

请问要怎么解决？

[yunfeng007]

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