Dim
lngTimerID
BlnTimer
Boolean
Private
Form_Load() BlnTimer
=
False
Command1.Caption
定时开始
End Sub
Form_Unload(Cancel
Integer
) KillTimer
0
Command1_Click()
If
Then
'
每5秒钟调用一次函数
SetTimer(
5000
AddressOf
TimerProc) BlnTimer
True
定时结束
Else
KillTimer
End
End Sub