VB多线程调用com问题,高手请进.

用createThread创建线程运行方法,方法如下
Public Sub location(ByVal docT As Long)
    'CoInitialize (0&)
    dim docX as domdomlelment
    set docX = new domdomelement
    docX.async = false
    'CoUninitialize
End Sub
但是docX.async报自动化错误,用htmldocument等其他com对象也报此错误,如设置断点的确有内容,但是就是不能访问,怀疑是线程里要初始化com,但是调用了CoInitialize (0&)也没用,不知是不是要初始化com的原因(报错类型和vc中未初始化com是一样的),还是vb中初始化com要另外的东东,高手指教.