用系统Threading.Thread.Sleep函数延时过程中会造成程序无响应，特别是最小化窗口后，经常无法正常激活窗口，下面这个就好多了。 参数单位为毫秒     Public Shared Sub delay( ByVal Interval As Integer)               Dim __time As DateTime = DateTime.Now