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 Sub Play(SoundPath As String) '播放wav声音 sndPlaySound SoundPath, SND_ASYNC End Sub Sub main() Play "C:\Test.wav" End Sub