Private Shared Sub ZipReaderExampleXamarin(ByVal zipFileStream As Stream)
      Dim password As String = "password"

'       If we'll be extracting many items from the archive, we'll create a work buffer
'          ahead of time and use it over and over again to avoid creating a new buffer
'          each time we write to a destination. 

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

      Dim extractedFiles As Dictionary(Of String, MemoryStream) = New Dictionary(Of String, MemoryStream)()

'       NOTE: The zip file can be any type of stream you use. A network stream, a file stream, etc
'          The component will never call Stream.Seek() on the stream and will only read to it.
'        
'          This example will use the 'zipFileStream' memory stream used in the ZipWriter example. 

      ' Make sure the zip file stream is positioned at the start
      zipFileStream.Seek(0, SeekOrigin.Begin)

      ' Create a local header object that will be reused
      Dim localHeader As New ZipItemLocalHeader()

      ' Create the ZipReader object around the stream
      Using zipReader As New ZipReader(zipFileStream)
'         As a convenience, ZipReader offers the option to automatically close the input stream when
'            ZipReader is closed. The behavior is disabled by default.
'         
'            In this example, we will not enable it as we may want to manipulate the zip file
'            after it has been read. 
        'zipReader.AllowInputStreamClosure = true;

        ' 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

'         Here, we supply the local header object we created above.
'            ReadItemLocalHeader() will fill the object with current data and return a
'            reference to the same object.
'            
'            ReadItemLocalHeader() can also be called without parameters. Then, it will
'            create a new ZipItemLocalHeader object and return it with current data. 

        ' While the reader finds local headers
        Do While zipReader.ReadItemLocalHeader(localHeader) IsNot Nothing
          ' NOTE: 'localHeader.FileName' will contain a leading slash 

          ' If the item isn't a folder entry
          If (Not localHeader.IsFolder) Then
'             NOTE: The destination data can be any type of stream you need. A network stream, a file stream, etc
'                The component will never call Stream.Seek() on the stream and will only write to it.
'       
'                This example will use memory data to keep it simple and on point. 
            Dim outputStream As New MemoryStream()

            extractedFiles.Add(localHeader.FileName, outputStream)

            ' Have the reader read the item data and write it to the stream using our buffer
            zipReader.ReadItemData(outputStream, buffer, 0, bufferSize)
          End If
        Loop
      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