做一个计划管理
Sendkeys.Send("^C")
在startEdit事件
MyTimers("计划1").Enabled = true
在afterEdit事件
MyTimers("计划1").Enabled = false