Private Shared Sub ZipReaderExample()
      Dim zipFilePath As String = "D:\RealTimeZipExamples\MyZipFile.zip"
      Dim destinationFolder As String = "D:\UnzipToFolder"
      Dim password As String = "password"

      Dim bufferSize As Integer = 64 * 1024
      Dim buffer(bufferSize - 1) As Byte

      ' Create a stream for the zip file
      Using zipFileStream As Stream = New FileStream(zipFilePath, FileMode.Open, FileAccess.Read, FileShare.Read, bufferSize, FileOptions.SequentialScan)
        ' Create a local header object
        Dim localHeader As New ZipItemLocalHeader()

        ' Create the ZipReader object around the stream
        Using zipReader As New ZipReader(zipFileStream)
          ' Optional. Provide the default password for encrypted items in the archive
          zipReader.EncryptionPassword = password

          ' Optional. Subscribe to available events
          AddHandler zipReader.ByteProgression, AddressOf OnByteProgression
          AddHandler zipReader.InvalidPassword, AddressOf OnInvalidPassword

          ' While the reader finds local headers
          Do While zipReader.ReadItemLocalHeader(localHeader) IsNot Nothing
            ' The 'FileName' property contains the sub-folders and filename
            Dim outputPath As String = destinationFolder & localHeader.FileName
            Dim outputFolder As String = Path.GetDirectoryName(outputPath)

            ' Make sure the output folder exists
            Directory.CreateDirectory(outputFolder)

            ' If the item isn't a folder entry
            If (Not localHeader.IsFolder) Then
              ' Create/overwrite an output file using our calculated filename
              Using outputFileStream As New FileStream(outputPath, FileMode.Create, FileAccess.Write, FileShare.None)
                ' Have the reader read the item data and write it to the stream using our buffer
                zipReader.ReadItemData(outputFileStream, buffer, 0, bufferSize)
              End Using
            End If
          Loop
        End Using
      End Using
    End Sub

    Private Shared Sub OnInvalidPassword(ByVal sender As Object, ByVal e As ZipReaderInvalidPasswordEventArgs)
      ' TODO: We have access to the current item being unzipped. We can report it's name, etc
      Dim currentItem As ZipItemLocalHeader = e.ZipItemLocalHeader

      ' TODO: We're given the password that failed. We can report it, etc
      Dim oldPassword As String = e.OldPassword

'       If 'e.NewPassword' is set to null or an empty string, or 'e.Abort' is set to true,
'      a ZipReaderException will be thrown for failure to decrypt the item.
'      Since items can't be skipped, the entire unzip process will be canceled.
'       
'      When the event is triggered, 'e.NewPassword' is set to an empty string and 'e.Abort' is set
'      to false. 

      ' TODO: We have to supply a new password.
      ' If that new password is invalid, the event will be triggered again
      e.NewPassword = "Some New Password"

      ' TODO: We can ask the entire unzip operation to be aborted
      e.Abort = True
    End Sub

    Private Shared Sub OnByteProgression(ByVal sender As Object, ByVal e As ZipReaderByteProgressionEventArgs)
      ' TODO: We have access to the current item being unzipped. We can report it's name, etc
      Dim currentItem As ZipItemLocalHeader = e.ZipItemLocalHeader

      ' TODO: We're given the current amount of bytes unzipped for the item. We can report it, etc
      Dim bytesProcessed As Long = e.BytesProcessed

'       Do not assume that e.UncompressedSize and e.Percent will contain useful values.
'      Since ZipReader doesn't seek in the archive, it cannot always know the uncompressed
'      size in advance. 
    End Sub