timertick事件
http://www.foxtable.com/webhelp/scr/1301.htm
If e.form.controls("Table1").Table.AllowEdit Then e.form.baseform.icon = new icon("d:\test1.ico")Else e.form.baseform.icon = new icon("d:\test2.ico")End If