编写timertick事件
http://www.foxtable.com/webhelp/scr/1322.htm
e.form.Controls("label1").Text = format(Date.Now, "yyyy年MM月dd日 dddd HH:mm:ss")