TimerTick事件
e.Form.Controls("Label1").Text = Format(Date.Now, "HH:mm:ss")
http://www.foxtable.com/webhelp/scr/1301.htm