关于多线程的创建和关闭使用CreateThread 和TerminateThread出现的问题

Question

使用            mHandle1 = CreateThread(Null, ByVal O&, AddressOf Module.JiaZai1, VarPtr(0), ByVal 0&, threadid1)
创建一个线程
并在过程结束后使用            Call TerminateThread(mHandle1, ByVal 0&)
结束线程   一切正常
可是有在第一个下面又增加了一个线程            mHandle1 = CreateThread(Null, ByVal O&, AddressOf Module.JiaZai1, VarPtr(0), ByVal 0&, threadid1)
            mHandle2 = CreateThread(Null, ByVal O&, AddressOf Module.JiaZai2, VarPtr(0), ByVal 0&, threadid2)
分别在过程结尾用了            Call TerminateThread(mHandle1, ByVal 0&)
            Call TerminateThread(mHandle2, ByVal 0&)
出现了错误
总是第二个线程出错，到底怎么回事？

Answer 1

参考:http://topic.csdn.net/u/20080624/09/d74ebe5d-6854-4935-8c93-faebb9a192b4.html