Sub Raven ()
    Dim SoundName$
    Dim ThisForm$
    Dim wFlags%
    Dim xx%
    ThisForm$ = Mod_Name + "Raven"
    On Error GoTo RavenError
    SoundName$ = app.Path + "\raven.wav"
    wFlags% = SND_ASYNC + SND_NODEFAULT
    xx% = sndPlaySound(SoundName$, wFlags%)
    Exit Sub
RavenError:
    Resume Next 'Resume OK
End Sub