Одновременная прокрутка 2х listbox

Dim lns() As String = IO.File.ReadAllLines("1.txt", System.Text.Encoding.Default)
Dim ln() As String
Dim inf As String = ""
For i = 3 To lns.Length - 1 Step 5
    ln = lns(i).Split(vbTab)
    inf &= ln(4) & ", " & ln(5) & ", " & ln(6) & vbCrLf
Next
MsgBox(inf)

Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Lst = TextBox4.Text.Split(vbCrLf)
        Dim SUMMA1, SUMMA2
 
        ListView1.Items.Clear()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
 
        With ListView1
            For i = 0 To Lst.Length - 1
                Dim tttt = Lst(i)
                If Lst(i).Trim.Length = 7 Then
                    .Items.Add(Lst(i + 3).Split(vbTab)(0)).SubItems.AddRange( _
                        {Lst(i), _
                        Lst(i + 3).Split(vbTab)(4).Trim, _
                        Lst(i + 3).Split(vbTab)(5).Trim, _
                        Lst(i + 3).Split(vbTab)(6).Trim})
                    i += 3
                End If
            Next
 
            'находим суммы ставок и прибыли
            If .Items.Count <> 0 Then
                For I As Integer = 0 To .Items.Count - 1
                    SUMMA1 += (Val(.Items(I).SubItems(2).Text))
                    SUMMA2 += (Val(.Items(I).SubItems(3).Text))
                Next
                TextBox1.Text = SUMMA1
                TextBox2.Text = SUMMA2
                TextBox3.Text = SUMMA2 - SUMMA1
            Else
                MsgBox("Нет данных для расчета.")
            End If
        End With
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ListView1.Items.Clear()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub
End Class