vb代码 调用两个以上声音

我想实现调用 事先录好的几段音频。比如要实现“1号车报警”、“2号车报警”声音；我已把文字“1”、“2”、“号车报警”均录成单个音频（1.wav,2.wav,alarm.wav等文件）。
我现在希望的是能帮忙给个简单的例子，怎么能通过编程，比如点击command按钮，就能将1.wav和alarm.wav连着播放出来，实现“1 号车报警”的声音效果

---

将文件名按先后次序放在数组中，先用 Multimedia MCI 控件播放第一个，它有 PlayCompleted 事件，在这里继续播放下一个。

---

没有代码，不过同样谢谢你。
我想好了，如下：（可以根据任意数字组合，再加上不同的报警信息，发声了）

窗体： Private Sub Command1_Click()
  Dim txt, ar As String     
Dim i As Integer
    txt = Trim(Me.Text1.Text)  'Text1.Text,可输入任意数字
  For i = 1 To Len(txt)
  ar = Mid(txt, i, 1)
  'Print ar
    voc (ar)
  Next
    haoche (Me.Label1.Caption)  'Me.Label1.Caption可以来源于报警信息
    End Sub
模块：
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private fil As String
Public Function voc(ByVal x As String)
Select Case CInt(Trim(x))
Case 1
fil = App.Path & "\1.wav"
PlaySound fil, 0, SND_LOOP
Case 2
fil = "C:\Documents and Settings\Administrat