Доступ к контролам формы из другого потока

'Private Delegate Function P017Invoker(ByVal Frm As frmZp_str, ByVal fName As String) As Boolean
 
    Private Function P017(ByVal Frm As frmZp_str, ByVal fName As String) As Boolean
        'If Frm.lstData.InvokeRequired Then
        '    Return CBool(Frm.lstData.Invoke(New P017Invoker(AddressOf P017), New Object() {Frm, fName}))
        'Else
            Dim srInFile As StreamReader = New StreamReader(fName, System.Text.Encoding.GetEncoding(866))
            Dim Buffer As String = ""
 
            With Frm
                .lblStatusCurrentDocSum.Text = CDbl(srInFile.ReadLine().Substring(79, 10).Insert(8, ".")).ToString
                While (srInFile.Peek > -1) And (Not worker.CancellationPending)
                    Thread.Sleep(ToInt32(My.Settings.Delay))
                    Buffer = srInFile.ReadLine()
                    .lblStatusCurrentDoc.Text = fName.Substring(fName.LastIndexOf("\"c) + 1)
                    .lblWorkers.TextInvoked((ToInt32(.lblWorkers.Text) + 1).ToString)'*Invoked - пользовательские расширения для некоторых классов
 
                    .lstData.Items.Add(.lblWorkers.Text)
 
                    '.lstData.Items(Convert.ToInt32(.lblWorkers.Text) - 1).SubItems.AddRange({Buffer.Substring(5, 14), Buffer.Substring(46, 99).Trim, _
                    '                        .mtxtPuch.Text, ToInt32(Buffer.Substring(38, 6)).ToString + "." + Buffer.Substring(44, 2), _
                    '                        (.txtOrder.Text + "_" + Buffer.Substring(46, 99).Trim).Replace(" "c, "_"c)})
 
                    .lstData.AddLineInvoked(.lblWorkers.Text, {Buffer.Substring(5, 14), Buffer.Substring(46, 99).Trim, _
                                            .mtxtPuch.Text, ToInt32(Buffer.Substring(38, 6)).ToString + "." + Buffer.Substring(44, 2), _
                                            (.txtOrder.Text + "_" + Buffer.Substring(46, 99).Trim).Replace(" "c, "_"c)})
                    .lblStatusCurrentProgSum.Text = (ToDouble(.lblStatusCurrentProgSum.Text) + ToDouble(Buffer.Substring(38, 8).Insert(6, "."))).ToString
                    '.lstData.Update()
                End While
                srInFile.Close()
                If Not ErrorSumMatch(CDbl(.lblStatusCurrentDocSum.Text), CDbl(.lblStatusCurrentProgSum.Text), fName) Then
                    Return False
                End If
                .lblStatusDoneDocs.Text = CStr(CInt(.lblStatusDoneDocs.Text) + 1)
                If .rdbtnAll.Checked Then
                    CheckForEmtySum(Frm)
                    WriteDataToFile(Frm)
                    NewDocument(Frm)
                End If
            End With
            Return True
        'End If
    End Function

ListView1.BeginUpdate()
While условие
      'добавление строк
End While
ListView1.EndUpdate()

While условие
ListView1.BeginUpdate()
      'добавление строк
ListView1.EndUpdate()
End While