home *** CD-ROM | disk | FTP | other *** search
/ Computerworld 1996 March / Computerworld_1996-03_cd.bin / idg_cd3 / utility / raven / srce0001.txt < prev    next >
Text File  |  1995-09-09  |  342b  |  15 lines
  1.  Sub Raven ()
  2.     Dim SoundName$
  3.     Dim ThisForm$
  4.     Dim wFlags%
  5.     Dim xx%
  6.     ThisForm$ = Mod_Name + "Raven"
  7.     On Error GoTo RavenError
  8.     SoundName$ = app.Path + "\raven.wav"
  9.     wFlags% = SND_ASYNC + SND_NODEFAULT
  10.     xx% = sndPlaySound(SoundName$, wFlags%)
  11.     Exit Sub
  12. RavenError:
  13.     Resume Next 'Resume OK
  14. End Sub
  15.