利用VB多线程.解决VB没有多线程的问题