'--------------------------------------------------------------------
'                            sndPlaySound
'--------------------------------------------------------------------
' Listing 1 -- This file can be merged with your global module
' It contains the necessary Declare statement and Const
' definitions for the sndPlaySound function.
Declare Function sndPlaySound Lib "mmsystem"
  (ByVal lpszSoundName As String, ByVal uFlags As Integer) As Integer

' Values for wFlags parameter
Global Const SND_SYNC = &H0     ' Play Synchronously (default)
Global Const SND_ASYNC = &H1    ' Play Asynchronously
Global Const SND_NODEFAULT = &H2' Don't use default sound if
                                '  requested sound can't be found
Global Const SND_MEMORY = &H4   ' lpszSoundName Points to a
                                '  Memory File
Global Const SND_LOOP = &H8     ' Play sound continuously until
                                '  next sndPlaySound
Global Const SND_NOSTOP = &H10  ' Don't stop any currently
                                '  playing sound