调用时直接用
不阻塞延时(1000)
Public Shared Sub 不阻塞延时(ByVal 需要延时的毫秒)
'及其精确误差1毫秒
Dim 当前时间 As DateTime = DateTime.Now
Dim 跨度 As Int64 = 需要延时的毫秒 * 10000
While (DateTime.Now.Ticks - 当前时间.Ticks < 跨度)
Application.DoEvents()
End While
End Sub