title: Text Animate - Scrolling
body: <p>Currently I'm using this vb.net code, that I found online, below to scoll text up a form. Is there a way to have muliple text scrolling at the same time? So for my array I'd have Item2 right below Item1 and so on depending on how many items were in the array? I want each new item to be scrolled right below the next one.</p>
  
  <pre><code> Option Strict Off  'Strict has to be off for the font
  Public Class Form1
  
     Dim sItems() As String = {"Item1", "Item2", "Item3", "Item4"}
  
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For index As Integer = 0 To sItems.Length - 1
           animateText(sItems(index), Button1.Location.Y - 50, Button1.Location.Y - 50, Button1.Location.X)
        Next
     End Sub
     Dim label As New Label
     Dim maxHeight As Integer
     Dim colour As Integer = 255
     Public Sub animateText(ByVal text As String, ByVal lowerBounds As Integer, ByVal upperBounds As Integer, ByVal xPos As Integer)
           maxHeight = upperBounds
           label.Text = text
           label.TextAlign = ContentAlignment.MiddleCenter
           label.Location = New Point(xPos, lowerBounds)
           label.Font = New Font(Font.Bold, 20)
           label.AutoSize = True
           Me.Controls.Add(label)
        Timer1.Enabled = True
     End Sub
     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        label.Location = New Point(label.Location.X, label.Location.Y - 20)  'here's where you set the speed
        If label.Location.Y = maxHeight Then
           Timer1.Enabled = False
           Me.Controls.Remove(label)
        End If
     End Sub
  End Class
  </code></pre>