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