vb ActiveX控件多线程的问题

[花气袭人知昼暖]

我现在需要写一个ActiveX，里面有一个调用多线程的地方。如果我写成Active控件，则可以实现多线程的调用；但如果我发布出来，则不能实现多线程的调用。调用部分代码如下：

Declare Function CreateThreadL Lib "kernel32" Alias "CreateThread" (ByVal lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long

Public Function CreateThread() As Boolean
    tHandler = CreateThreadL(0, 0, AddressOf Thread1, 0&, CREATE_SUSPENDED, ID)
     If ResumeThread(tHandler) = -1 Then
     ' MsgBox ("Start Thread Error!")
     Else
      'MsgBox ("Start Thread Ok!")
    End If
End Function

Public Function Thread1(ByVal para As Long) As Long
    MsgBox "This is Thread1"
    Call ftpTest
End Function

Public Function ftpTest() As Long
    ftpTest = 1000
End Function

不知道谁遇到过这个问题没有，有没有好的解决办法？

[dbcontrols]

这问题得问老马

[花气袭人知昼暖]

多谢各位的回复。

我实现了普通Exe和ActiveX控件的多线程，但是再做成Active dll发布的时候多线程有问题。不知道哪位有这方面的经验。（简单的多线程的方法我已经知道了）

[花气袭人知昼暖]

老马是谁？……

[dbcontrols]

http://hi.csdn.net/myjian

[Quote=引用 2 楼 wardensky 的回复:]
老马是谁？……
[/Quote]

[贝隆]

VB多线程并不稳定。

[benjoy]

VB不要用多线程，会有很多问题。
以前我们公司有N多VB大牛的，都没搞好。

[王二.麻子]

active exe ，比用CreateThreadL 好维护多了

[现在还是人类]

[Quote=引用 5 楼 benjoy 的回复:]
VB不要用多线程，会有很多问题。
以前我们公司有N多VB大牛的，都没搞好。
[/Quote]
那么你公司的那些N多都不是VB大牛，呵呵。

楼主可以看看这篇帖子：
http://topic.csdn.net/u/20110414/16/2df4a431-9024-46c8-9b1d-7173ed53336d.html

[taoguangye]

VB多线程现在已经有突破了,看看我的这个DLL

http://topic.csdn.net/u/20111125/12/b47a55d4-33b5-4434-96ca-020f23f20d13.html