ขอคำแนะนำเรื่องไฟล์เสียง ที่มากกว่า 1 ไฟล์ ให้เล่นไฟล์เสียงแค่ 5 วินาที แล้วหยุด เพื่อที่จะได้เล่นไฟล์เสียงต่อไป ครับ

If strHN = dgvMedicine.Item(0, i).Value Then
                For j As Integer = 0 To dgvMedicine.RowCount - 1
                    Select Case dgvMedicine.Item(6, j).Value
                        Case "MBOX01"
                            Me.btnMedBox01.Enabled = True
                            Me.btnMedBox01.BackColor = Color.Red
                            My.Computer.Audio.Play("C:\MEDCLASSET\MEDCLASSET\Sound\MEDBOX01.wav")                            
                        Case "MBOX02"
                            Me.btnMedBox02.Enabled = True
                            Me.btnMedBox02.BackColor = Color.Red
                            My.Computer.Audio.Play("C:\MEDCLASSET\MEDCLASSET\Sound\MEDBOX02.wav")
.
.
.
                        Case "MBOX20"
                            Me.btnMedBox20.Enabled = True
                            Me.btnMedBox20.BackColor = Color.Red
                            My.Computer.Audio.Play("C:\MEDCLASSET\MEDCLASSET\Sound\MEDBOX20.wav")
                    End Select
                Next