timertick事件
CurrentTable.AddNew
mouseDown事件
e.form.TimerInterval = 50e.form.TimerEnabled = True
mouseUp事件
e.form.TimerEnabled = False