I want to play random sounds, one after another. I can get one sound to play, but nothing more. It should play 10 random sounds from the list of 6. It just plays 1. How do I get it to play all 10?
`Private Sub RandomNote()
For Me.a = 1 To 10 Ran = New Random Play = Ran.Next(Min, Max) Select Case Play Case 1 Play1() Case 2 Play2() Case 3 Play3() Case 4 Play4() Case 5 Play5() Case 6 Play6() End Select Next a End Sub`