WAV音を鳴らす

'*** (Declarations)に記述 ***
Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Const SND_SYNC = 0
Const SND_ASYNC = 1
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Sub WaveSoundSYNC()

sndPlaySound lpszSoundName:="C:\Windows\Media\TADA.wav", uFlags:=SND_SYNC

End Sub