延时小程序,听说延时时可以不卡 ,timer还没研究(懒)。。。
Sub delay(n As Integer)
Dim i As Integer
For i = 1 To n
Sleep 1
DoEvents
Next
End Sub
延时小程序,听说延时时可以不卡 ,timer还没研究(懒)。。。
Sub delay(n As Integer)
Dim i As Integer
For i = 1 To n
Sleep 1
DoEvents
Next
End Sub