    ' to use overlay icons/state icons and/or colour changes in the LV
         sFIle = sFIle &amp; "+"
      End If
      Set itmX = lvwZip.ListItems.Add(, "File" &amp; i, sFIle, , sIcon)
      itmX.SubItems(1) = m_cUnzip.FileSize(i)
      itmX.SubItems(2) = Format$(m_cUnzip.FileDate(i), "short date") &amp; " " &amp;
       Format$(m_cUnzip.FileDate(i), "short time")
      itmX.SubItems(3) = m_cUnzip.FilePackedSize(i)
      itmX.SubItems(4) = m_cUnzip.FileDirectory(i)
   Next i

End Function

Private Funct