延时小程序

    延时小程序，听说延时时可以不卡 ，timer还没研究（懒）。。。

 

Sub delay(n As Integer)
Dim i As Integer
For i = 1 To n
   Sleep 1
   DoEvents
Next
End Sub