Определить статус воспроизведения файла - VB

Формулировка задачи:

Здравствйуте!Опишу ситуацию: У меня есть программа в которой для воспроизведения аудио я использую библиотеки

winmm.dll

                    Листинг программы
                
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

а для воспроизведения собственно аудиофайла команду:

                    Листинг программы
                
Call mciExecute("play 1.mp3")

Вопрос: Как по нажатии на Command1 узнать играет ли 1.mp3 или уже воспроизведение завершено?

Решение задачи: «Определить статус воспроизведения файла»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringW" (ByVal lpstrCommand As Long, ByVal lpstrReturnString As Long, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
 
Private Sub Command1_Click()
    Dim ret As String
    
    ret = Space(255)
    
    mciSendString StrPtr("status Music mode"), StrPtr(ret), Len(ret), 0
    
    If StrComp(Left$(ret, 7), "playing", vbTextCompare) = 0 Then
        MsgBox "Г…Г№ГҐ ГЁГЈГ°Г*ГҐГІ"
    Else
        MsgBox "ГЋГ±ГІГ*Г*Г®ГўГ«ГҐГ*Г®"
    End If
End Sub
 
Private Sub Form_Load()
    Dim ret     As Long
    Dim file    As String
    
    file = Chr$(34) & "D:\Г’Г®Г«ГЁГЄ\ГЊГіГ§Г»ГЄГ*\ZX-Spectrum\ZX Spectrum - Lyra 2 Megademo (1991).mp3" & Chr$(34)
    ret = mciSendString(StrPtr("open " & file & " alias Music"), 0, 0, 0)
    mciSendString StrPtr("play Music"), 0, 0, 0
    
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    mciSendString StrPtr("close Music"), 0, 0, 0
End Sub