VB倒计时程序

我写一个VB倒计时的程序，想在最好10秒时有一个人的声音读秒，请问各位VB达人，应该怎么做啊。
下面是倒计时的一段代码

Private Sub Timer2_Timer()
qd = qd - 1
m = Int(qd / 10) - Int(qd / 600) * 60
f = Int(qd / 600)
nr = Str(f) & "分" & Str(m) & "秒"
Label1.Caption = nr
If qd = 0 Then  (时间到了)
xs.Visible = False
sz.Visible = False
bobo.Visible = True (跳倒远成界面)
End If
End Sub

---

哪里有问题？
bobo是什么？

---

xs
sz
bobo 这三个都是窗体

---

我想增加一个到10秒时就会出现人声读秒问题。

---

只要在你需要的地方加上你定义的声音文件就行，到时候调用~用snd的函数~beep也行

---

有很多方法啊，可以使用系统时间函数：Now  可以使用API函数：GetTickCount 也可以使用Timer控件。

---

使用MCI32.ocx播放0～10.wav
{{