(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub PlaySound()
If Application.CanPlaySounds Then
'Substitute the path and filename of the sound you want to play
Call sndPlaySound32("c:\win95\media\chimes.wav", 0)
End If
End Sub[/quote]