ItemClick事件
vars("e") = ee.Form.TimerInterval = 500e.Form.TimerEnabled = True
TimerTick事件
Dim ee = vars("e")e.Form.TimerEnabled = False
msgbox(1111)