[Помогите!] [Visual Basic] Ionic.zip Unzip

[XRASER]

Нужно сделать фоновую распаковку архива, с отображением в ProgressBar.

Код без Progressbar'а:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using zip As ZipFile = ZipFile.Read("zip.zip")
            Dim ex As ZipEntry
            For Each ex In zip
                ex.Extract("", ExtractExistingFileAction.OverwriteSilently)
            Next
        End Using
    End Sub