В случае проигрывания *.WAV знаю
могу подсказать если нужно

Скачайте фаил, скопируйте модуль в вашу программу


авторOption Compare Database
Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long

Function csvPlayWave(ByVal FileName As String, ByVal How As _
Integer) As Integer
csvPlayWave = PlaySound(Trim(FileName), 0, How)
End Function

Private Sub Command1_Click()
a = csvPlayWave("c:\Windows\media\chord.wav", 0)
End Sub

в случае 0 можно прервать проигрывание фаила
а в случае 1 пока фаил проигрывается не возможно это прекратить

Извените забыл фаил прикрепить