vb延时但不影响操作的代码？

vb延时但不影响操作的代码？

如果要求延时的时候可以退出，那可以使用 API + 循环，使用到 GetTickCount 这个API函数，具体代码如下：

Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim blnQuit As Boolean

Private Sub Pause(ByVal TimeOut As Long)
Dim i As Long
blnQuit = False
i = GetTickCount()
Do
If (GetTickCount() - i >= TimeOut) Or (blnQuit = True) Then
Exit Do
End If
DoEvents
Loop
End Sub

功能实现，调用延时函数：Pause 延时的时长(毫秒)，例如要延时5秒钟，可以写成：Pause 5000，退出的方法：令 blnQuit = True 即可，你可以在另一个 Command 按钮中写 blnQuit = True，这相当于一个全局开关，当按下这个按钮的时候延时过程会立即结束。

望采纳，谢谢！！！
追问：或许可以，但是我想在异步播放一组（用数组循环）音频时退出来（停止或播放其他）怎么办