Private Sub _LoadZipFiles()
        sBar.Text = ""
        lstFiles.Items.Clear()
 
        If m_oZipArchive Is Nothing Then
            Exit Sub
        End If
 
        EnableButtons(False)
 
        Dim files() As ZipFile = m_oZipArchive.Files
        Dim count As Integer = files.Length
 
        pgBar.Minimum = 0
        pgBar.Maximum = count
 
        Dim totalsize As Long = 0
        For i As Integer = 0 To count - 1
 
            pgBar.Value = i + 1
            Dim z As ZipFile = files(i)
            Dim name As String = z.Name
            If z.Encrypted Then
                name = String.Format("{0}+", name)
            End If
 
            Dim item As ListViewItem = New ListViewItem(name)
            item.SubItems.Add(String.Format("{0}", z.Length))
            item.SubItems.Add(String.Format("{0}", z.CompressedSize))
 
            Dim cur As System.Globalization.CultureInfo = New _
              System.Globalization.CultureInfo("en-US")
            Dim sdate As String = z.LastWriteTime.ToString("yyyy-MM-dd" & _
            "HH:mm:ss", cur)
 
            item.SubItems.Add(sdate)
            item.SubItems.Add(z.FullName)
            If z.IsDirectory Then
                item.SubItems.Add("Directory")
            Else
                item.SubItems.Add("File")
            End If
            item.Tag = z
            lstFiles.Items.Add(item)
 
            totalsize += z.Length
 
            sBar.Text = String.Format("Total {0} files, {1} KB", i + 1, CLng( _
              totalsize / 1024))
 
            Application.DoEvents()
        Next
 
        sBar.Text = String.Format("Total {0} files, {1} KB", count, CLng( _
          totalsize / 1024))
        EnableButtons(True)
 
    End Sub