VB.NET
* Private Declare Function GetTickCount Lib "kernel32" () As Long



Sub Wait(ByVal cTime As Long)
Dim sTime As Long


sTime = GetTickCount + cTime


Do While sTime >= GetTickCount
Application.DoEvents()
Loop
End Sub 
* cTime 단위는 ms(밀리초, 1000분의 1초)임

* 사용방법
 
Wait(밀리초)