Búsqueda de archivos y DoEvents

[auxsys]

Buenas! Estoy en VB2008 con un programa que debe leer los datos de unos archivos en un directorio. Estos archivos tienen el mismo nombre, o extensión, da igual. Para la búsqueda utilizo un For Each:

Código:

For Each Archivo As String In My.Computer.FileSystem.GetFiles(Ruta, _
         FileIO.SearchOption.SearchAllSubDirectories, "setup.exe")
     'Se añaden los archivos encontrados
     ListArchivos.Items.Add(Archivo)
Next

Bien, en este ejemplo se buscan todos los archivos "setup.exe" y se carga su ruta en un ListBox. El problema es que esta búsqueda puede llegar a durar mucho, y mientras tanto quiero que el programa siga funcionando, o por lo menos muestre un ProgressBar con animación.
He probado con un DoEvents, pero el problema (supongo) es que mientras no encuentre un archivo "setup.exe", no se ejecutará ese DoEvents. Y si hay pocos archivos así, el programa no responderá. ¿Alguna sugerencia? Graciasss.

Salu00000010!!!

[Peterpay]

utilizar un BackgroundWorker y que su propiedad ReportProgress =true y con eso usas tu progressbar

[auxsys]

Mmm... no tengo muy claro qué es lo que hace el BackgroungWorker pero tan sencillo no será, por lo menos lo he intentado y no he conseguido nada. ¿Alguna aclaración? Gracias.

[auxsys]

Alguien? Perdón, no me gusta insistir porque sé que nadie tiene por qué responder, pero me haríais un gran favor echándome una mano. Gracias!