有一些DLL可以在VB6IDE中引用，使得VB6代码成为多线程：

1、需要将多线程代码加入模块，代码：

其中AddressOf只支持模块中的Public，需要大量改动原有单线程的代码，比较复杂。

2、采用一个很不错的多线程DLL（VIP会员可联系站长免费获得），可以直接Call到原始窗体的Public过程，无需修改代码。

有个缺点：

一旦在IDE运行，就会让程序在结束的时候消失（就是崩溃）。只有生成EXE后，才能正常实现多线程不崩溃，这样的问题是不好调试。

解决办法：

这样在按钮和退出的时候：

就可以了。这样在IDE或EXE模式，都可以不崩溃的运行你的代码了（IDE模式是单线程，EXE模式是多线程），可以在IDE调试。