Set m_cUnzip = New cUnzip
   ' Set up Extract To MRU:
   Set m_cExtractToMRU = New cMRU
   ' Set up Zip FIles MRU:
   Set m_cZipMRU = New cMRU
   
   m_sBaseKey = "SOFTWARE\vbAccelerator\VBUnZip"
   If Not pbLoadOptions(HKEY_LOCAL_MACHINE) Then
      pbLoadOptions HKEY_CURRENT_USER
   End If
   
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
   pSaveOptions HKEY_CURRENT_USER
   pSaveOptions HKEY_LOCAL_MACHINE
End Sub

Private Sub Form_Resize()
   On Erro