How do you detect if a waveform sound is still playing or not?

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

How do I detect if SoundWave has finished playing?

Open Using mciSendString.
Call The mciSendString With Status Mode As Argument.

Ex::

Public Function IsPlaying() As Boolean
Static yn As String * 30
mciSendString "status MP3Play mode", yn, Len(yn), 0
IsItPlaying = (Mid$(yn, 1, 7) = "playing")
End Function