Here is my code. I have the Timer set at 2 seconds for now. It pulls the data in fine, sets the text for the label fine. But it only shows the last row of data and does not rotate through the rows.

Any ideas?

Code:
Public Class MarqueTest

    Private Sub MarqueTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.AdminMessTableAdapter.Fill(Me.MarqueDataSet.AdminMess)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim dr As DataRow
        For Each dr In Me.MarqueDataSet.AdminMess.Rows
            TitleLabel1.Text = dr.Item("DateSubmited") & " - " & dr.Item("Title") & " - POSTED BY " & dr.Item("CallSignSubmitted")
        Next

    End Sub
End Class