比较麻烦
afterLoad事件
vars("可见") = False
e.form.TimerInterval = 1000e.form.TimerEnabled = True
timertick事件
e.form.TimerEnabled = False
vars("可见") = true
enter事件
If vars("可见") = False Then Return
msgbox(333)