vb6实现的多线程方法，初学者的可以参考。