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

Const SND_SYNC = &H0000
Const SND_ASYNC = &H0001
Const SND_NODEFAULT = &H0002
Const SND_LOOP = &H0008
Const SND_NOSTOP = &H0010

'Insert the following code under a command button, in a menu, etc..

SoundFile$ = "c:\windows\chimes.wav"
wFlags% = SND_ASYNC Or SND_NODEFAULT
x% = sndPlaySound(SoundFile$,wFlags%)