VB 多线程生成EXE出错的解决办法

大家都知道VB的多线程是很大的问题，为了一个小程序实现多线程，程序是在控制台下实现的，没用窗体控件，忙了好几天，最后生成EXE文件后运行出错

下面的解决办法是网上一位朋友发现的，在此感谢他，代码是

Public Declare Function CreateIExprSrvObj Lib "msvbvm60.dll" (ByVal p1_0 As Long, ByVal p2_4 As Long, ByVal p3_0 As Long) As Long

'调用方法:在线程函数的第一行加上

CreateIExprSrvObj 0, 4, 0

可以顺利生成EXE运行多线程