按钮一事件
e.Form.Controls("Button2").Enabled = Truee.Form.TimerEnabled = Truevars("tick") = 1
TimerTick事件
If vars("tick") > 3 Then e.Form.Controls("Button2").Enabled = False e.Form.TimerEnabled = FalseEnd Ifvars("tick") += 1