Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2

Private Sub Command1_Click()
'播放wav
sndPlaySound "E:\WINDOWS\Media\chord.wav", SND_ASYNC Or SND_NODEFAULT
End Sub