Correr un ProgressBar o Label en segundo plano en Vb.net

[angel1993]

¿Por qué asignas el máximum y el mínimum en el for?
Si Maximun es 100, no puedes poner 101 de value por que supera el máximo, una opción sería, poner el máximo como el total de archivos que vas a recorrer

Código vb:

ProgressBar1.Maximum =nFiles.Count
 

eso por una lado, por otro
¿Por qué?

Código vb:

i = CStr(nFiles.Count)
j = CInt(i)
 

.Count es integer... lo estás convirtiendo en string para meterlo en i y luego otra vez en integer para meterlo en j, para eso haz directamente

Código vb:

j = nFiles.Count
 

De todas formas yo directamente lo haría así

Código vb:

Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
         Dim nFiles As ObjectModel.ReadOnlyCollection(Of String)
         nFiles = My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
        
         ProgressBar1.Maximum = nFiles.Count
         ProgressBar1.Minimum = 1
 
         For x = 0 To nFiles.Count - 1
            ProgressBar1.Value = x + 1
         Next
    End Sub
 

Fíjate que le resto 1 al .Count cuando hago el for, ya que las colecciones empiezan desde 0, así que el for empieza desde 0 hasta el total - 1
empezabas el for desde 1, si el primer elemento es 0, el primer elemento lo ignoras :/