Цикл не будет отображать текст в метке формы

Question

У меня проблемы с изменением текста в метке. Может кто-нибудь показать мне, где проблема?

Public Class Form1
   Dim Tracker As Integer = 0
   Dim Questions(10) As String

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

    Questions(0) = "Are you mad?"
    Questions(1) = "Are you sad?"
    Questions(2) = "Are you glad?"
    Questions(3) = "Are you happy?"
    Questions(4) = "Are you indebted?"
    Questions(5) = "Are you swimming in money?"
    Questions(6) = "Do you play sports?"
    Questions(7) = "Do you watch SportsCenter?"
    Questions(8) = "Do you cheer for the Pistons?"
    Questions(9) = "Do you cheer for the Lions?"


End Sub

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

    For i = 0 To Questions.Length - 1

        Label1.Text += Questions(i)
    Next

End Sub

End Class

Answer 1

Я просто использовал нажатие кнопки, чтобы увеличить переменную счетчика, а затем установить эту переменную в индекс массива.