عمل شريط متحرك من قاعدة البيانات

PHP كود :

   Private Function DataTableToValueList(table As DataTable, columnName As String) As List(Of String)
        Dim values As List(Of String) = New List(Of String)()
        SyncLock table.GetType
            For i As Integer = 0 To table.Rows.Count - 1
                Dim value As String = table.Rows(i)(columnName).ToString
                values.Add(value)
            Next
            Return values
        End SyncLock
    End Function

PHP كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim da As New OleDbDataAdapter("Select * from ms", con)
        Dim dt As New DataTable
        da.Fill(dt)
        DataGridView1.DataSource = dt
        DataGridView1.Columns(0).Visible = False
        DataGridView1.Columns(1).HeaderText = "الخبر الأول"
        DataGridView1.Columns(2).HeaderText = "الخبر الثاني"
        DataGridView1.Columns(3).HeaderText = "الخبر الثالث"
        DataGridView1.Columns(4).HeaderText = "الخبر الرابع"
        DataGridView1.Columns(5).HeaderText = "الخبر الخامس"
        DataGridView1.Columns(6).HeaderText = "الخبر السادس"
        DataGridView1.Columns(7).HeaderText = "الخبر السابع"

        Label2.Text = DataGridView1(1, DataGridView1.SelectedRows(0).Index).Value
        Label3.Text = DataGridView1(2, DataGridView1.SelectedRows(0).Index).Value
        Label4.Text = DataGridView1(3, DataGridView1.SelectedRows(0).Index).Value
        Label5.Text = DataGridView1(4, DataGridView1.SelectedRows(0).Index).Value
        Label6.Text = DataGridView1(5, DataGridView1.SelectedRows(0).Index).Value
        Label7.Text = DataGridView1(6, DataGridView1.SelectedRows(0).Index).Value
        Label8.Text = DataGridView1(7, DataGridView1.SelectedRows(0).Index).Value
        Timer1.Start()

        Dim list As String() = New String() {Label2.Text, Label3.Text, Label4.Text, Label5.Text, Label6.Text, Label7.Text, Label8.Text}
        Dim indent As String = "                    "
        Dim func As Func(Of String, String) = Function(s) indent + s + indent
        Dim textToAnimate As String = String.Empty
        Dim i As Integer = 0
        While i < list.Length
            Dim toIndnet As String = list(i)
            If TryIndent(func) Then
                textToAnimate += func(toIndnet)
            End If
            i += 1
        End While
        Label9.Text = textToAnimate

        Dim datalist As List(Of String) = Me.DataTableToValueList(dt, "name_txt")

    End Sub