程序中延时时CPU占有率100%解决思路

程序中延时时CPU占有率100%
程序中在上一行代码运行完毕再运行下一行代码需要时间暂停几秒，我用了延时的方法如下：
Private   Sub   CmdMove_Click()
Dim   timeup   As   Boolean
...................................... '上一行代码
Timer2.Interval   =   5000
Timer2.Enabled   =   False
Timer2.Enabled   =   True
timeup   =   False
Do   While   Not   timeup
DoEvents
Loop
...................................... '下一行代码
End   Sub

Private   Sub   Timer2_Timer()
timeup   =   True
End   Sub
发现延时的这5000毫秒中CPU占有率达到100%，如何才能解决这个问题？还有其他更好的办法来延时吗？请教一下.

[解决办法]
Private Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Me.Caption = "Your system will sleep 5 sec. "
'Sleep for 5000 milliseconds
Sleep 5000
Me.Caption = " "
End Sub