Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ListView1.BeginUpdate()
        Bgw.RunWorkerAsync(New String() {"C:\Windows\System32", "*"})
    End Sub
 
    Private Sub bgw_DoWork(ByVal sender As System.Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs) Handles Bgw.DoWork
        Dim di As New IO.DirectoryInfo(e.Argument(0))
        Bgw.WorkerReportsProgress = True
        For Each fi In di.GetFiles(e.Argument(1))
            Bgw.ReportProgress(1, fi)
        Next
    End Sub
 
    Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As _
      System.ComponentModel.ProgressChangedEventArgs) Handles _
      Bgw.ProgressChanged
        Dim fi As IO.FileInfo = e.UserState
        ListView1.Items.Add(fi.Name).SubItems.Add(fi.Length.ToString())
    End Sub
 
    Private Sub Bgw_RunWorkerCompleted(ByVal sender As Object, ByVal e As _
      System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
      Bgw.RunWorkerCompleted
        ListView1.EndUpdate()
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov