If you dont want to use Threading.Thread.Sleep then you may want to use this.
VB.NET Code:
Private Sub Wait(ByVal Milliseconds As Integer) Dim sw As New Stopwatch sw.Start() Do While sw.ElapsedMilliseconds < Milliseconds Application.DoEvents() Loop sw.Stop() End Sub

