事件引發的問題...(編號：7273)

如果今天有個Function...如下 :
Function Nexta() As Boolean
Dim Tmr
Tmr = Timer
Do While Timer - Tmr ＜ 60
DoEvents
Loop
Nexta = True
End Function
當有一事件的述途如下 :
Private Sub Timer1_Timer()
If Nexta Then Exit Sub
End Sub
如果Timer1.Interval = 300
那會不會一直引發Nexta呢,且Nexta裡的東東會"同時"執行嗎 ?
by Peter ^_^