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

[davidalonsso05]

Buenos días, aun sigo con esta duda despues de 8 dias de trabajo
Intente con el siguiente codigo...

Código vb:

Public Sub Comprimirtxt1()
        Dim nFiles As ObjectModel.ReadOnlyCollection(Of String)
        nFiles = My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath, FileIO.SearchOption.SearchTopLevelOnly, "*.txt")
        i = CStr(nFiles.Count)
        j = CInt(i)
Dim txtFiles = Directory.GetFiles(Me.TextBox1.Text, "*.txt")
        For Each currentFile As String In txtFiles
            Using zip As ZipFile = New ZipFile()
                zip.AddFile(currentFile, "")
                zip.Save(System.IO.Path.Combine(System.IO.Path.GetDirectoryName(currentFile), System.IO.Path.GetFileNameWithoutExtension(currentFile) + ".zip"))
                File.Delete(currentFile)
 End Using
            'For x = 1 To j
            'ProgressBar1.Minimum = 1
            'ProgressBar1.Value = x
            'ProgressBar1.Maximum = 100
        Next
        'Next
    End Sub
 

Donde el usuario selecciona la ruta y la paso al textbox1, y logre contar los archivos ya sea por carpeta o subcarpetas pero sigo sin poder correr la barra en segundo plano...

Necesito ayuda ya que mañana es mi ultimo dia de trabajo y necesito entregarlo u.u

Saludos!