AfterLoad事件
e.form.TimerInterval = 500e.form.TimerEnabled = True
timertick事件
e.form.Controls("label1").Text = date.now