想找一个好的延时程序！

我的工作现在要开发一个系统，用VB做，工程要求延时要准还要简单，我编的程序在运行时CPU的使用率总是在100%，我也不知道是什么原因，可能是我做的延时程序不大好，因为程序里很多地方要调用这个延时的函数，我用的程序代码是：
Private Sub delay(lDisplay As Long, lMsDelay As Long)
Dim lStartTime As Long
Dim lContinuateTime As Long
Dim lDsplyTime As Long

lStartTime = timeGetTime()
Do
lContinuateTime = timeGetTime() - lStartTime
DoEvents
Loop Until lContinuateTime > lMsDelay
End Sub
说实话，我自己也看不大懂他的工作原理，也不知道他的时间是怎么来记算的，呵呵，请高手帮忙分析下，里面的参数都代表什么意思啊，呵呵，还有想找一个更简单又实用的延时程序，要用Timer控件可以的么，有人说这个不太准，不过我没有用过，如果有高手用过的，也可以把程序在这里写一下哦，谢谢了哦！！

我只能看出来这不是汇编语言，也不是C语言，也不是SQL。。。。。。

我也觉得!