Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, _
      ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles _
      AxWindowsMediaPlayer1.PlayStateChange
 
        If AxWindowsMediaPlayer1.playState = _
          WMPLib.WMPPlayState.wmppsMediaEnded Then
 
            Dim _rowIndex = DG.SelectedRows(0).Index + 1
            If _rowIndex <= DG.Rows.Count - 1 Then
                Dim nextRow As DataGridViewRow = DG.Rows(_rowIndex)
                ' Move the Glyph arrow to the next row
                DG.CurrentCell = nextRow.Cells(0)
                DG.Rows(_rowIndex).Selected = True
            End If
 
            AxWindowsMediaPlayer1.URL = DG.CurrentRow.Cells(2).Value.ToString
            AxWindowsMediaPlayer1.Ctlcontrols.play()
        End If
 
    End Sub