Musicprogram

[Ljuslykta]

Hi. I'm having problem with a program that generates a random melody.

Label5.Text = (Int(Rnd() * 6))                  Generate the first tone.
        If Label5.Text = 0 Then
            Label1.Text = "A"
        ElseIf Label5.Text = 1 Then
            Label1.Text = "B"
        ElseIf Label5.Text = 2 Then
            Label1.Text = "C"
        ElseIf Label5.Text = 3 Then
            Label1.Text = "D"
        ElseIf Label5.Text = 4 Then
            Label1.Text = "E"
        ElseIf Label5.Text = 5 Then
            Label1.Text = "F"
        ElseIf Label5.Text = 6 Then
            Label1.Text = "G"
        End If
        'Label 2
       
 Label5.Text = (Int(Rnd() * 6))                 Generate the second tone
        If Label5.Text = 0 Then
            Label2.Text = "A"
        ElseIf Label5.Text = 1 Then
            Label2.Text = "B"
        ElseIf Label5.Text = 2 Then
            Label2.Text = "C"
        ElseIf Label5.Text = 3 Then
            Label2.Text = "D"
        ElseIf Label5.Text = 4 Then
            Label2.Text = "E"
        ElseIf Label5.Text = 5 Then
            Label2.Text = "F"
        ElseIf Label5.Text = 6 Then
            Label2.Text = "G"
        End If

        'Label 3
        Label5.Text = (Int(Rnd() * 6))                   Generate the third tone
        If Label5.Text = 0 Then
            Label3.Text = "A"
        ElseIf Label5.Text = 1 Then
            Label3.Text = "B"
        ElseIf Label5.Text = 2 Then
            Label3.Text = "C"
        ElseIf Label5.Text = 3 Then
            Label3.Text = "D"
        ElseIf Label5.Text = 4 Then
            Label3.Text = "E"
        ElseIf Label5.Text = 5 Then
            Label3.Text = "F"
        ElseIf Label5.Text = 6 Then
            Label3.Text = "G"
        End If
        'Label 4
       

 Label5.Text = (Int(Rnd() * 6))                 Generate the forth tone
        If Label5.Text = 0 Then
            Label4.Text = "A"
        ElseIf Label5.Text = 1 Then
            Label4.Text = "B"
        ElseIf Label5.Text = 2 Then
            Label4.Text = "C"
        ElseIf Label5.Text = 3 Then
            Label4.Text = "D"
        ElseIf Label5.Text = 4 Then
            Label4.Text = "E"
        ElseIf Label5.Text = 5 Then
            Label4.Text = "F"
        ElseIf Label5.Text = 6 Then
            Label4.Text = "G"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
    End Sub

Here is the problem

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       
If the user clicks "play melody"

 If Label1.Text = "A" Then                                     Play the first tone
            My.Computer.Audio.Play("C:\Tunes\A.wav")
        ElseIf Label1.Text = "B" Then
            My.Computer.Audio.Play("C:\Tunes\B.wav")
        ElseIf Label1.Text = "C" Then
            My.Computer.Audio.Play("C:\Tunes\C.wav")
        ElseIf Label1.Text = "D" Then
            My.Computer.Audio.Play("C:\Tunes\D.wav")
        ElseIf Label1.Text = "E" Then
            My.Computer.Audio.Play("C:\Tunes\E.wav")
        ElseIf Label1.Text = "F" Then
            My.Computer.Audio.Play("C:\Tunes\F.wav")
        ElseIf Label1.Text = "G" Then
            My.Computer.Audio.Play("C:\Tunes\G.wav")
        End If

        If Label1.Text = "A" Then                            Play the second tone
            My.Computer.Audio.Play("C:\Tunes\A.wav")
        ElseIf Label2.Text = "B" Then
            My.Computer.Audio.Play("C:\Tunes\B.wav")
        ElseIf Label2.Text = "C" Then
            My.Computer.Audio.Play("C:\Tunes\C.wav")
        ElseIf Label2.Text = "D" Then
            My.Computer.Audio.Play("C:\Tunes\D.wav")
        ElseIf Label2.Text = "E" Then
            My.Computer.Audio.Play("C:\Tunes\E.wav")
        ElseIf Label2.Text = "F" Then
            My.Computer.Audio.Play("C:\Tunes\F.wav")
        ElseIf Label2.Text = "G" Then
            My.Computer.Audio.Play("C:\Tunes\G.wav")
        End If

        If Label3.Text = "A" Then                            Play the third tone         
            My.Computer.Audio.Play("C:\Tunes\A.wav")
        ElseIf Label3.Text = "B" Then
            My.Computer.Audio.Play("C:\Tunes\B.wav")
        ElseIf Label3.Text = "C" Then
            My.Computer.Audio.Play("C:\Tunes\C.wav")
        ElseIf Label3.Text = "D" Then
            My.Computer.Audio.Play("C:\Tunes\D.wav")
        ElseIf Label3.Text = "E" Then
            My.Computer.Audio.Play("C:\Tunes\E.wav")
        ElseIf Label3.Text = "F" Then
            My.Computer.Audio.Play("C:\Tunes\F.wav")
        ElseIf Label3.Text = "G" Then
            My.Computer.Audio.Play("C:\Tunes\G.wav")
        End If

        If Label3.Text = "A" Then                            Play the forth tone
            My.Computer.Audio.Play("C:\Tunes\A.wav")
        ElseIf Label3.Text = "B" Then
            My.Computer.Audio.Play("C:\Tunes\B.wav")
        ElseIf Label3.Text = "C" Then
            My.Computer.Audio.Play("C:\Tunes\C.wav")
        ElseIf Label3.Text = "D" Then
            My.Computer.Audio.Play("C:\Tunes\D.wav")
        ElseIf Label3.Text = "E" Then
            My.Computer.Audio.Play("C:\Tunes\E.wav")
        ElseIf Label3.Text = "F" Then
            My.Computer.Audio.Play("C:\Tunes\F.wav")
        ElseIf Label3.Text = "G" Then
            My.Computer.Audio.Play("C:\Tunes\G.wav")
        End If
    End Sub

But fore some reason, when the program has played the first tone, it won't play the rest. Why?