1、参考
http://www.foxtable.com/webhelp/scr/1545.htm
2、获取次数,参考
Dim n As Integer = GetConfigValue("Count",1)
msgbox(60-n)