title: How to change the label text every 3 seconds using a timer VB.NET
body: <pre><code>Dim arr() As String = {"Cake", "Mouse", "Heat", "Tent", "Boots", "Pen", "Stairs", "Cube", "Lion", "Cookies", "Ruler", "Ink"}
  Dim timing As Boolean = True
  Dim i As Integer = 0
  Dim n As Integer = 3000
  Private Sub Button1_Click(sender As Object, e As EventArgs)
      Timer1.Start()
      For i = 0 To 11
          While timing = True
              If Timer1.Interval = n Then
                  Lbl_Word.Text = arr(i)
                  timing = False
              End If
          End While
          timing = True
      Next
      Timer1.Stop()
  End Sub
  </code></pre>
  
  <p>The text of the label isn't changing and i'm not sure what I've done wrong. Please help.</p>