我发现用VB6的,很少有人能写出支持多线程的应用程序.特将这个代码贴出,以供vb6的开发人员使用.