Как узнать что воспроизведение завершено?

   Private Declare Function MSS Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
 
    Public Function PlayFile(ByVal strFileName As String) As Long     ' Воспроизведение внещнего файла
        Call StopPlay()
        Call MSS("OPEN " & strFileName & " ALIAS FIRST", vbNullString, 0&, 0&)
        PlayFile = MSS("PLAY FIRST", vbNullString, 0&, 0&)
    End Function
 
    Public Sub StopPlay()                                       ' Остановка внешнего файла
        Call MSS("STOP FIRST", vbNullString, 0&, 0&)
        Call MSS("CLOSE FIRST", vbNullString, 0&, 0&)
    End Sub

' добавить ссылку на Microsoft.DirectX.AudioVideoPlayback !!!!!
Public Class Form1
 
    Dim WithEvents PLR As Microsoft.DirectX.AudioVideoPlayback.Audio
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' кнопка выбора файлов
        Using FBD As New OpenFileDialog
            With FBD
                .Filter = "Аудио|*.mp3"
                .Multiselect = True
                .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
            End With
            If FBD.ShowDialog = Windows.Forms.DialogResult.OK Then
                If MsgBox("Очистить список предварительно?", MsgBoxStyle.OkCancel Or MsgBoxStyle.Question) = MsgBoxResult.Ok Then
                    Me.ListBox1.ClearSelected()
                    Me.ListBox1.Items.AddRange(FBD.FileNames)
                Else
                    Me.ListBox1.Items.AddRange(FBD.FileNames)
                End If
            End If
        End Using
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If PLR Is Nothing = False Then PLR.Stop() ' на случай, если что то уже играло
        PLR = New Microsoft.DirectX.AudioVideoPlayback.Audio(Me.ListBox1.SelectedItem)
        PLR.Play()
        Me.HScrollBar1.Maximum = PLR.Duration
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        PLR.Pause()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        PLR.Stop()
    End Sub

   If PLR Is Nothing = False Then PLR.Stop() ' на случай, если что то уже играло
                PLR = New Microsoft.DirectX.AudioVideoPlayback.Audio(ListBox1.Items(ind - 1))
                PLR.Play()
                PLR.Volume = volume

 If PLR Is Nothing = False Then PLR.Stop() ' на случай, если что то уже играло

PLR.Dispose

Public Class Form1
    Dim WithEvents APLR As Microsoft.DirectX.AudioVideoPlayback.Audio
    Dim currentPlayPos As Integer
    Dim CurPos_inTrak As Integer
    
    ''' <summary>
    ''' Функция возвращает набор тегов из файлов *.mp3 (согласно формата ID3v1) в виде массива строк. Если теги отсутствуют - возвращает Nothing
    ''' </summary>
    ''' <param name="path">путь к файлу</param>
    ''' <returns>Список возвращаемых тегов: название, исполнитель, альбом, год, комментарий, номер трека, жанр</returns>
    ''' <remarks></remarks>
    Private Function GetTagSTR(ByVal path As String) As String()
        ReDim GetTagSTR(6) ' задаем длину пустого массива
        Dim Genres() As String = {"Blues ", "Classic Rock", "Country", "Dance", "Disco", "Funk", "Grunge", "Hip-Hop", "Jazz", "Metal", "New Age", "Oldies", "Other", "Pop", "R&B", "Rap", "Reggae", "Rock", "Techno", "Industrial", "Alternative", "Ska", "Death Metal", "Pranks", "Soundtrack", "Euro-Techno", "Ambient", "Trip-Hop", "Vocal", "Jazz+Funk", "Fusion", "Trance", "Classical", "Instrumental", "Acid", "House", "Game", "Sound Clip", "Gospel", "Noise", "AlternRock", "Bass", "Soul", "Punk", "Space", "Meditative", "Instrumental Pop", "Instrumental Rock", "Ethnic", "Gothic", "Darkwave", "Techno-Industrial", "Electronic", "Pop-Folk", "Eurodance", "Dream", "Southern Rock", "Comedy", "Cult", "Gangsta", "Top 40", "Christian Rap", "Pop/Funk", "Jungle", "Native American", "Cabaret", "New Wave", "Psychadelic", "Rave", "Showtunes", "Trailer", "Lo-Fi", "Tribal", "Acid Punk", "Acid Jazz", "Polka", "Retro", "Musical", "Rock & Roll", "Hard Rock", "Folk", "Folk-Rock", "National Folk", "Swing", "Fast Fusion", "Bebob", "Latin", "Revival", "Celtic", "Bluegrass", "Avantgarde", "Gothic Rock", "Progressive Rock", "Psychedelic Rock", "Symphonic Rock", "Slow Rock", "Big Band", "Chorus", "Easy Listening", "Acoustic", "Humour", "Speech", "Chanson", "Opera", "Chamber Music", "Sonata", "Symphony", "Booty Bass", "Primus", "Porn Groove", "Satire", "Slow Jam", "Club", "Tango", "Samba", "Folklore", "Ballad", "Power Ballad", "Rhythmic Soul", "Freestyle", "Duet", "Punk Rock", "Drum Solo", "A capella", "Euro-House", "Dance Hall"} 'список жанров
        Dim L As Integer
        Dim FS As System.IO.FileStream
        FS = System.IO.File.Open(path, IO.FileMode.Open, IO.FileAccess.Read)
        L = FS.Length
        Dim buff(L - 1) As Byte
        FS.Read(buff, 0, L)
        FS.Close()
        Dim TAG, Ntrak, GenreInd, Genre As String
        TAG = System.Text.Encoding.Default.GetChars(buff, L - 128, 3) 'TAG - заголовок метатега. Если тут иное, то это не набор тегов
        If TAG.Equals("TAG") = False Then Return Nothing
        Ntrak = AscW(System.Text.Encoding.Default.GetChars(buff, L - 128 + 126, 1))
        GenreInd = AscW(System.Text.Encoding.Default.GetChars(buff, L - 128 + 127, 1)) 'Индекс в списке жанров или 255
        If CInt(GenreInd) > 0 And CInt(GenreInd) < 126 Then
            Genre = Genres.GetValue(CInt(GenreInd))
        Else
            Genre = "unknown"
        End If
        'Готовим исходящий массив
        GetTagSTR.SetValue(System.Text.Encoding.Default.GetString(buff, L - 128 + 3, 30), 0) 'название 
        GetTagSTR.SetValue(System.Text.Encoding.Default.GetString(buff, L - 128 + 33, 30), 1) 'исполнитель
        GetTagSTR.SetValue(System.Text.Encoding.Default.GetString(buff, L - 128 + 63, 30), 2) 'альбом
        GetTagSTR.SetValue(System.Text.Encoding.Default.GetString(buff, L - 128 + 93, 4), 3) 'год
        GetTagSTR.SetValue(System.Text.Encoding.Default.GetString(buff, L - 128 + 97, 28), 4) 'комментарий
        GetTagSTR.SetValue(Ntrak, 5) 'номер трека
        GetTagSTR.SetValue(Genre, 6) 'жанр
        Array.Clear(buff, 0, L)
        Return GetTagSTR
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.ListBox1.Items.Clear()
        Dim FoldD As New FolderBrowserDialog
        If FoldD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.ListBox1.Items.AddRange(System.IO.Directory.GetFiles(FoldD.SelectedPath, "*.mp3"))
        End If
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'получение метатегов
        ListBox2.Items.Clear()
        Try
            Dim ss As String() = GetTagSTR(ListBox1.SelectedItem)
            For Each s As String In ss
                Me.ListBox2.Items.Add(s)
            Next
        Catch ex As Exception
        End Try
 
        Me.currentPlayPos = Me.ListBox1.SelectedIndex
        If APLR Is Nothing = False Then
            APLR.Stop()
            APLR.Dispose()
        End If
        Me.APLR = Audio.FromFile(Me.ListBox1.SelectedItem)
        Me.APLR.Play()
    End Sub
 
    Private Sub AudioPlayer_Ending(ByVal sender As Object, ByVal e As System.EventArgs) Handles APLR.Ending
        If APLR Is Nothing = False Then
            APLR.Stop()
            Me.APLR.Dispose()
        End If
        Me.currentPlayPos = Me.currentPlayPos + 1
        If Me.currentPlayPos = Me.ListBox1.Items.Count Or Me.currentPlayPos > Me.ListBox1.Items.Count Then
            If APLR Is Nothing = False Then APLR.Stop()
            Exit Sub
        End If
        If APLR Is Nothing = False Then APLR.Stop()
        Me.ListBox1.SelectedIndex = Me.currentPlayPos
        'получение метатегов
        ListBox2.Items.Clear()
        Try
            Dim ss As String() = GetTagSTR(ListBox1.SelectedItem)
            For Each s As String In ss
                Me.ListBox2.Items.Add(s)
            Next
        Catch ex As Exception
        End Try
        Me.APLR = Audio.FromFile(Me.ListBox1.Items(Me.currentPlayPos))
        Me.APLR.Play()
    End Sub
 
    Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
        If APLR Is Nothing = False Then
            Me.APLR.Volume = HScrollBar1.Value
        End If
        Me.Label1.Text = Math.Round(HScrollBar1.Value / (HScrollBar1.Maximum - HScrollBar1.Minimum) * 100 + 100, 1)
    End Sub
 
    Private Sub HScrollBar2_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar2.Scroll
        If APLR Is Nothing = False Then
            Me.APLR.Balance = HScrollBar2.Value
        End If
        Me.Label2.Text = Math.Round(HScrollBar2.Value / (HScrollBar2.Maximum - HScrollBar2.Minimum) * 100, 1)
    End Sub
 
    Private Sub HScrollBar3_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar3.Scroll
        If APLR Is Nothing = False Then
            Me.APLR.CurrentPosition = Me.HScrollBar3.Value
        End If
    End Sub
 
    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        Me.currentPlayPos = Me.ListBox1.SelectedIndex
        If APLR Is Nothing = False Then
            Me.APLR.Stop()
            Me.APLR.Dispose()
        End If
        'получение метатегов
        ListBox2.Items.Clear()
        Try
            Dim ss As String() = GetTagSTR(ListBox1.SelectedItem)
            For Each s As String In ss
                Me.ListBox2.Items.Add(s)
            Next
        Catch ex As Exception
        End Try
 
        Me.APLR = Audio.FromFile(Me.ListBox1.Items(Me.currentPlayPos))
        Me.APLR.Play()
        Me.Timer1.Start()
        Me.ListBox1.SelectedIndex = Me.currentPlayPos
    End Sub
 
    Private Sub AP_Starting(ByVal sender As Object, ByVal e As System.EventArgs) Handles APLR.Starting
        Me.Timer1.Start()
        Me.Button2.Text = "Пауза"
        Me.HScrollBar3.Maximum = APLR.Duration
        Me.HScrollBar3.Value = APLR.CurrentPosition
        Me.CurPos_inTrak = APLR.CurrentPosition
        Me.APLR.Balance = Me.HScrollBar2.Value
        Me.APLR.Volume = Me.HScrollBar1.Value
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.APLR.CurrentPosition <> Me.CurPos_inTrak Then
            Me.HScrollBar3.Value = Me.APLR.CurrentPosition
        End If
    End Sub
 
    Private Sub HScrollBar3_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar3.ValueChanged
        If APLR Is Nothing = False Then
            Me.Label3.Text = CInt(APLR.CurrentPosition) & "/" & CInt(Me.APLR.Duration)
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Label2.Text = Me.HScrollBar2.Value
        Me.Label1.Text = Me.HScrollBar1.Value
        Me.Label3.Text = Me.HScrollBar3.Value
        Me.Button1.Text = "Выбрать файлы"
        Me.Button2.Text = "Пауза/Продолжить"
        Me.Button3.Text = "Воспроизведение"
        Me.Button2.Enabled = True
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If APLR Is Nothing = False Then
            If APLR.Paused = False Then
                APLR.Pause()
                Me.Button2.Text = "Продолжить"
            ElseIf APLR.Paused = True Then
                APLR.Play()
                Me.Button2.Text = "Пауза"
            End If
        End If
    End Sub
End Class

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
RateOfSpeech = TrackBar1.Value
End Sub