[VB.NET]Wait Function()

Private Sub wait(ByVal interval As Integer)
Dim sw As New Stopwatch
sw.Start()
Do While sw.ElapsedMilliseconds < interval

Application.DoEvents()
Loop
sw.Stop()
End Sub