     cR.SectionKey = m_sBaseKey &amp; "\ExtractToMRU"
      If cR.KeyExists Then
         m_cExtractToMRU.DeSerialise cR
         cR.SectionKey = m_sBaseKey &amp; "\FileOpenMRU"
         If cR.KeyExists Then
            m_cZipMRU.DeSerialise cR
            pbLoadOptions = True
            pShowOpenMRU
         End If
      End If
   End If
End Function
Private Sub pSaveOptions(ByVal hKey As ERegistryClassConstants)
   Dim cR As New cRegistry
   
   cR.ClassKey = hKey
   cR.SectionKey = m_sBaseKey &amp; "\Ex