==============================================
Play a .wav file:   p563

Declare Function sndPlaySound Lib "MMSystem" (ByVal lpsound as String, ...
    ... ByVal flag as Integer ) as Integer

Dim SoundFile as String, worked as Integer
 
SoundFile = "filename.wav"

worked = sndPlaySound (SoundFile, 1)