Private Sub Worker_DoWork(ByVal sender As System.Object, ByVal e As _
  System.ComponentModel.DoWorkEventArgs) Handles Worker.DoWork
 
   Dim cls As New clsSuche
   AddHandler cls.AktuelleDatei, AddressOf AktuelleDatei
   cls.Suchen (txtPfad.Text, txtDatei.Text)
   e.Result = .Resultat
End Sub
 
Private Sub AktuelleDatei(ByVal Datei As String)
 
   Worker.ReportProgress(0, Datei)
End Sub
 
Private Sub Worker_ProgressChanged(ByVal sender As System.Object, ByVal e As _
  System.ComponentModel.ProgressChangedEventArgs) Handles Worker.ProgressChanged
 
   lblCurrentFile.Text = e.UserState
End Sub