[ű]
=ʱ
[ȼ]
=F6
ֹͣ=F11
ͣ=F10
[]
Dim aaaa,nID
Sub Main() 'űں
aaaa=100 'aaaֵΪ100
nID = SetTimer("Func",1000) 'ʱ
delay 2000
KillTimer(nID) 'ٶʱ
End Sub

Sub Func()
MsgBox aaaa
End Sub
[]
