 site and read their free source licensing
' information and requirements before using their code in your own
' application.
'
'
 ===============================================================================
=======

Private WithEvents m_cUnzip As cUnzip
Attribute m_cUnzip.VB_VarHelpID = -1
Private m_cExtractToMRU As cMRU
Private m_cZipMRU As cMRU
Private m_sBaseKey As String

Private Function pOpen(ByVal sFIle As String) As Boolean
Dim i As Long
Dim sIcon As String
Dim itmX As ListItem

   lvwZip.ListIte