3行代码播放wav

'API声明
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Const SND_SYNC = &H0
    Const SND_ASYNC = &H1
    Const SND_NODEFAULT = &H2
    Const SND_LOOP = &H8
    Const SND_NOSTOP = &H10

'以下是示例
'----------播放windowsXP中系统自带的声音文件--------
Private Sub PlayWaveSound_Click()
    soundfile$ = "C:\WINDOWS\Media\Windows XP 启动.wav"
    wFlags% = SND_ASYNC Or SND_NODEFAULT
    HaHa = sndPlaySound(soundfile$, wFlags%)
End Sub

'-------停止播放-------
Private Sub StopTheSound_Click()
    StopTheSoundNOW = sndPlaySound(soundfile$, wFlags%)
End Sub