关于timer控件的问题

Question

我想在timer1_timer函数里使得程序执行一段时间后，关闭timer1。如下语句能否实现：
 timer1.timer()
'要实现的东西
’达到一定条件后
timer1.enabled=false

Answer 1

sub timer1.timer()
'要实现的东西
if 达到一定条件 then
    timer1.enabled=false
end if
end sub

Answer 2

sub timer1.timer()
a=a+1
if a=10 then timer1.enabled=false
end sub

Answer 3

Option ExplicitDim lngTime As LongPrivate Sub Form_Load()
    Timer1.Interval = 1000 '设置为1秒
    lngTime = 0
End SubPrivate Sub Timer1_Timer()
    lngTime = lngTime + 1
    Call SelfFunction
    If lngTime = 5 Then Timer1.Enabled = False '执行5秒后停止
End Sub