1、on error rsume next ’对程序错误预处理，遇到错误，忽略，程序下走。
with语句，是为了简码代码，即"With XXX end with"之间的对象，可以共一个母对象。
2、是为了延时、
timer是计时器，tm1 = Timer，记下程序经行此处的及时时间。
’ Do ……loop 是循环。
’ Timer - tm1 两个时间的间隔，
’DoEvents，转让控制权，意思是，程序走自己的过程，我们可以干自己的。在这段时间中，系统可以自由了（明显的标志是，鼠标可动，不至于程序运行时，出现假死的状况）
我自己的理解是：在这个时间段中，让程序自个儿数数去吧，我干我的。