做个计划任务,然后运行下面代码
If ShowAppWindow(basemainform.text, 2) Then MyTimers("计划1").Enabled = FalseEnd If
http://www.foxtable.com/webhelp/scr/0657.htm