tractToMRU"
   m_cExtractToMRU.Serialise cR
   
   cR.SectionKey = m_sBaseKey &amp; "\FileOpenMRU"
   m_cZipMRU.Serialise cR
   
   cR.ValueType = REG_DWORD
   cR.SectionKey = m_sBaseKey
   cR.ValueKey = "UseFolderNames"
   cR.Value = Abs(m_cUnzip.UseFolderNames)
   cR.ValueKey = "OverwritePrompt"
   cR.Value = Abs(m_cUnzip.PromptToOverwrite)
   
End Sub

Private Sub cmdAll_Click()
Dim itmX As ListItem
   For Each itmX In lvwZip.ListItems
      itmX.Selected = True
   Next itmX
End Sub

Private Sub cmdExtra