r Resume Next
   lvwZip.Move lvwZip.Left, lvwZip.Top, Me.ScaleWidth - lvwZip.Left * 2,
    Me.ScaleHeight - lvwZip.Top - sbrMain.Height - 4 * Screen.TwipsPerPixelY
End Sub

Private Sub m_cUnzip_Cancel(ByVal sMsg As String, bCancel As Boolean)
   Debug.Print "Cancel:" &amp; sMsg
End Sub

Private Sub m_cUnzip_OverWritePrompt(ByVal sFIle As String, eResponse As
 EUZOverWriteResponse)
   'Debug.Print "Overwrite request: " &amp; sFIle
   Dim fO As New frmOverwrite
   With fO
      .TheCaption = "Do you want to o