Private Sub Worker_ProgressChanged(ByVal sender As System.Object, ByVal e As _
  System.ComponentModel.ProgressChangedEventArgs) Handles Worker.ProgressChanged
    Private Sub clsSuche_AktuelleDatei(ByVal Datei As String) Handles _
    mobjSuche.AktuelleDatei
        txtCurrentFile.Text = Datei
    End Sub
End Sub