Private Delegate Sub dFillListView(ByVal Param As Object)
 
Private Sub FillListView(ByVal Param As Object)
    Me.ListView1.Items.AddRange(New ListViewItem() {Param})
End Sub

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal _
e As System.ComponentModel.ProgressChangedEventArgs) Handles _
BackgroundWorker1.ProgressChanged
    Dim dFLV As dFillListView = AddressOf FillListView
    Me.Invoke(dFLV, e.UserState)
End Sub