this code

Sub Pause(interval)

Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub



that I picked up somewhere on internet is sucky, it stops like for longer then I need it to, even if I use Pause 0.001 it stops same as long as 0.01 or maybe even same as 0.1, code is not very good for my program....can someone help me pause for very very short time

Thank You