【文件属性】：
文件名称：延时函数vbnet
文件大小：499B
文件格式：TXT
更新时间：2018-06-08 08:58:48
延时函数
vbnet写的延时函数
Sub DelayTime(ByVal tms毫秒 As Integer)
Dim st As Long = Now.Ticks
Dim st1 As Long = Now.Ticks
Dim st2 As Integer = 0
Do
st2 = CInt((st1 - st) / 10000)
Select Case st2 - tms毫秒
Case Is < 0
Application.DoEvents()
st1 = Now.Ticks
Case Else
'达到条件下，延时结束
Exit Do
End Select
Loop
End Sub