vb6的一段延时函数帮忙改下用到VB.NET 2010里面

[oralUSA]

Public Declare Function GetTickCount Lib "kernel32" () As Long
DoEvents好像在2010里面也不支持

Public Sub Pause(HowLong As Long)
    Dim u%, tick As Long
    tick = GetTickCount()
    Do
      u% = DoEvents
    Loop Until tick + HowLong < GetTickCount
End Sub

[lxq19851204]

Public Sub Pause(ByVal HowLong As Long) Dim tick As Long tick = GetTickCount() Do Application.DoEvents() Loop Until tick + HowLong < GetTickCount End Sub

[橘子皮...]

DoEvents z这玩意好像很不安全