riteNone
      End If
   End With
   
End Sub

Private Sub m_cUnzip_PasswordRequest(sPassword As String, bCancel As Boolean)
   Dim fP As New frmPassword
   With fP
      .Show vbModal, Me
      If Not fP.Cancelled Then
         sPassword = fP.Password
      Else
         bCancel = True
      End If
   End With
End Sub

Private Sub m_cUnzip_Progress(ByVal lCount As Long, ByVal sMsg As String)
   sbrMain.Panels(1).Text = sMsg
End Sub

Private Sub mnuEdit_Click(Index As Integer)
   Select Case Index
   Case 0