Option Explicit





Declare Function sndPlaySound Lib "winmm.dll" _

   Alias "sndPlaySoundA" ( _

   ByVal lpszSoundName As String, _

   ByVal uFlags As Long) As Long

    

    Public Const SND_SYNC = &H0

    Public Const SND_ASYNC = &H1

    Public Const SND_NODEFAULT = &H2

    Public Const SND_MEMORY = &H4

    Public Const SND_LOOP = &H8

    Public Const SND_NOSTOP = &H10



Sub WAVStop()

    Call WAVPlay(vbNullString)

End Sub





Sub WAVLoop(File As String)

    Dim SoundName As String

    Dim wFlags As Long

    Dim x As Long

    

    SoundName = File

    wFlags = SND_ASYNC Or SND_LOOP

    x = sndPlaySound(SoundName, wFlags)

    If x = 0 Then MsgBox "Can't play " & File

End Sub





Sub WAVPlay(File As String)

    Dim SoundName As String

    Dim wFlags As Long

    Dim x As Long

    

    SoundName$ = File

    wFlags = SND_ASYNC Or SND_NODEFAULT

    x = sndPlaySound(SoundName, wFlags)

    If x = 0 Then MsgBox "Can't play " & File

End Sub



Sub Play()

WAVPlay "C:\windows\media\tada.wav"

End Sub



Sub PlayLoop()

WAVLoop "C:\windows\media\tada.wav"

End Sub