เล่นไฟล์เสียงต่อกันหลายๆไฟล์โดยที่ให้เล่นไฟล์เสียงแรกจบก่อน

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim music(4) As Object
        music(0) = My.Resources.num__1_
        music(1) = My.Resources.num__2_
        music(2) = My.Resources.num__3_
        music(3) = My.Resources.num__4_
        music(4) = My.Resources.num__5_
        Dim musicCount As New Integer

        For musicCount = 0 To 4
            My.Computer.Audio.Play(music(musicCount), AudioPlayMode.WaitToComplete)
        Next
End Sub