VB新手求救 
用VB做了一个采集程序,执行经常会 动不了,求教有 for 和 do  循环
加了 很多DoEvents
还是一样,不过,加 DoEvents 和一个都不加,,好很多,求教