Progressbar przy rozpakowywaniu.

[Crossiik]

Cześć może mi ktoś podpowiedzieć jak przystosować progressbar do wypakowywania pliku zip? (użyłem drag and drop)

Oto mój kod

      'wypakowywanie
        Dim files As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
        For Each filename As String In files
            Dim sc As New Shell32.Shell()
            Dim output As Shell32.Folder = sc.NameSpace(My.Application.Info.DirectoryPath)
            Dim input As Shell32.Folder = sc.NameSpace(filename)
            If Path.GetExtension(filename) = ".zip" Then
                output.CopyHere(input.Items, 4)
                MsgBox("Gotowe!")
            Else
                MsgBox("Tylko rozszerzenie .Zip")  <--tutaj*
            End If
        Next

Przy okazji może ktoś będzie wiedział czemu tutaj* msg się nie wyświetla.

Dzięki i pozdrawiam Crossik.