在VB中如何实现延时？

VB语言本身没有提供延时语句，但可借用Windows API函数Sleep来实现。该函数的声明格式为：
　　Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
其参数只有一个，代表延时的毫秒数。若要延迟1秒，则实现语句为：
　　Call Sleep（1000）

而通过vb本身也可以实现延迟

Dim MyBool as boolean

Dim MyTime as date

.........

MyBool = false

MyTime = Now

Do

if datediff("s",mytime,now) >=1 then

DoEvents

mybool= true

end if

Loop Until

.........

第二种方法可以做到延迟，但是有几个问题

1 无法精确到毫秒级别

2可能会占用大量的机器性能

不知还有什么其他的问题，请大家评论