Dim SoundWave as long
SoundWave = PlaySound(App.Path + "\sound1.wav", 0, SND_ASYNC)

How do I detect if SoundWave has finished playing?