'计时器
     Dim XHTimer As DispatcherTimer = New DispatcherTimer
     XHTimer.Interval = New TimeSpan(0, 0, 0, 0, 500)
     AddHandler XHTimer.Tick, Sub(s1, e1)
                                            ’时间到达后执行的代码写在此处   
                                           End Sub
     XHTimer.Start()


    说明：
    1、500为毫秒，前面0为秒，再前面的0为分钟。根据实际情况设置循环时间。
    2、此段定时器代码最好在Open事件Button事件下使用。其他事件要进行判断，避免重复计时。
    3、XHTimer.Stop为停止循环。可以放在循环中判断停止，也可以在其他按钮中点击停止，在其他按钮中停止可能涉及到对象不在一个事件中不能调用，可以把DIM 一行内容放在OPEN事件上方声明为全局对象。便于夸事件调用。
    4、如果中间处理的代码较多，循环周期应适当加长，避免对计算机的性能损耗过于严重或反复触发。
    5、此段代码不能在VBA编辑器中试运行。需要直接编译为dll文件在快表平台中使用。

好东东，不错的想法

好东东，不错的想法