高手进来教教可怜的娃儿吧、我新手加小白、恭候大神们驾临！

如何等候10秒 继续执行下面语句啊

使用API函数Sleep

sleep (10000)

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Delay(mSec As Long)
     '单位毫秒
     Dim tm1 As Long, tm2 As Long
     Dim i As Integer
     i = 1
     tm1 = timeGetTime  
     Do
        i = i + 1
         If i >= 1000 Then
             tm2 = timeGetTime
             If (tm2 - tm1) > mSec Then Exit Do  
             i = 1
         End If
         DoEvents
     Loop
End Sub

sleep会造成程序不响应任何事件，不太好

回复：7楼
楼主不要求其它事件。如果需要处理其它的话，最好还是用定时器实现

sleep（1000）可以的？
Private Sub Form_Click()
     print "我**"
     sleep(1000)
     promt "才怪"
其中的sleep 如何使用？     （我新手加小白）    刚接触vb

出错了、然后说未定义？

LS.没声明API……

Private Declare Sub Sleep Lib "kernel32 "(ByVal dwMilliseconds As Long)
我英语不太好   
Private Declare Sub Sleep Lib "kernel32 "    这条什么意思？
ByVal dwMilliseconds As Long      这条是把什么声明成长整形？ 跟sleep什么关系