vb.net 不会无响应的延时函数delay

用系统Threading.Thread.Sleep函数延时过程中会造成程序无响应，特别是最小化窗口后，经常无法正常激活窗口，下面这个就好多了。
参数单位为毫秒

Public Shared Sub delay( ByVal Interval As Integer)
Dim __time As DateTime = DateTime.Now
Dim __Span As Int64 = Interval * 10000 '因为时间是以100纳秒为单位。
While (DateTime.Now.Ticks - __time.Ticks < __Span)
Application.DoEvents()
End While
End Sub