+ 2).Checked = (m_cUnzip.FileCount &gt; 0)
         End If
      Next i
   End If
End Sub
Private Function pbLoadOptions(ByRef hKey As ERegistryClassConstants) As Boolean
On Error Resume Next

   Dim cR As New cRegistry
   
   cR.ClassKey = hKey
   cR.SectionKey = m_sBaseKey
   If cR.KeyExists Then
      cR.ValueType = REG_DWORD
      cR.ValueKey = "UseFolderNames"
      m_cUnzip.UseFolderNames = Not (cR.Value = 0)
      cR.ValueKey = "OverwritePrompt"
      m_cUnzip.PromptToOverwrite = Not (cR.Value = 0)
 