VB API函数sleep在睡眠时，导致窗体不能移动，该怎么解决

VB API函数sleep在睡眠时，导致窗体不能移动，该如何解决？
我在使用API函数sleep时，发现   当sleep在睡眠期间，导致窗体不能够移动，不知道该如何解决呢？

------解决方案--------------------
SLEEP嘛......睡着了当然就不能做事了....

有见过边睡边做事的吗...?

张飞也只不过是睁着眼睛睡觉而已....

呵呵,说笑的...

用个DO...LOOP,加上检测时间的代码,再加上DOEVENTS就能有响应地等待

不过程序里面是否非得要这种设计呢?

能否用一个定时器,时间到了再继续执行?
------解决方案--------------------
'个人认为这样是最好的…………
'两大优点：1、够准确（精确可能用不上）；2、占用CPU绝对小！
Dim nt As Single: nt = Timer
While Timer - nt < 5
Sleep 1: DoEvents
Wend
MsgBox "5 sec passed! "