' Make sure to Place an XceedZip control on a form and name it 'xZip'
' Also place a listbox on the form and name it 'List1' 

Dim ZipItems As XceedZipItems ' The collection
Dim ZipItem As XceedZipItem ' One item
Dim ResultCode As xcdError ' To keep return value 

Call xZip.License( "your license key" ) 

xZip.ZipFilename = "c:\temp\test.zip" ' Specify zip file to list 

ResultCode = xZip.GetZipContents(ZipItems, xcfCollection) ' Fill collection 

If ResultCode = xerSuccess then
   For Each ZipItem In ZipItems 
      List1.AddItem ZipItem.Filename & " (" & ZipItem.Size & " bytes)" 
   Next ZipItem 
Else
   MsgBox "Error: " & xZip.GetErrorDescription(xvtError, ResultCode) 
End If