利用多媒体的 mciSendString API 函数， 再搭配 mci(multimedia control 
interface) 指令， 即可播放 .wav 声音文件， 细节如下:
1. API 的声明：
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
注：如果以上的声明放在「一般模块」底下， 应将 Private 保留字去掉。
2. 程序范例：
' 撰写播放声音的一副程序
Sub PlaySound(filename)
Dim cmd As String
Call mciSendString("close MyWav", 0, 0, 0) ' MyWav 这个名称可依
需要来修改
cmd = "open " & filename & " type WAVEAudio alias MyWav"
Call mciSendString(cmd, 0, 0, 0)
Call mciSendString("play MyWav", 0, 0, 0)
End Sub
' 假设要拨放 "c:\windows\Tada.wav"
PlaySound "c:\windows\Tada.wav"

如何连续播放 .wav 声音文件？ 
叁考 上一技巧， 并且在表单上布置一个 Timer 控制文件、将 Interval 
属性设定成 100(表示 0.1 秒)， 然后撰写 Timer1_Timer 事件程序，如下:
Private Sub Timer1_Timer()
Dim retStr As String * 80
Call mciSendString("status MyWav mode", retStr, 80, 0)
If Left(retStr, 7) = "stopped" Then ' 如果停止了
PlaySound "c:\windows\Tada.wav" ' 重复播放
End If
End Sub