ct_Click()
Dim itmX As ListItem
Dim bSel As Boolean
Dim sFolder As String
Dim iItem As Long

   ' Choose Selected items:
   For Each itmX In lvwZip.ListItems
      iItem = CLng(Mid$(itmX.Key, 5))
      m_cUnzip.FileSelected(iItem) = (itmX.Selected)
      If itmX.Selected Then
         bSel = True
      End If
   Next itmX
   
   ' If none selected do entire zip:
   If Not bSel Then
      For iItem = 1 To m_cUnzip.FileCount
         m_cUnzip.FileSelected(iItem) = True
      Next iItem
   End If
   
   ' Get 