[数码手机] 再请教一个VB问题。。。用了beep播放音乐就不能做其它事情了，怎么解决？？

就是每10分钟，播放一段beep，提醒到时间，同时弹出一个msgbox，中止or继续。

但是beep一响，整个程序就没反映了，啥事也干不了……弹出了msgbox也点不了，只能等

doevents俺也加了，可不管事啊。。。

代码如下。。。

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Timer1_Timer()
DoEvents
  msgbox(....)
  Beep(500, 500)
  Beep(400, 400)
  Beep(300, 300)
  
End Sub