rt_Click()
Dim itmX As ListItem
   For Each itmX In lvwZip.ListItems
      itmX.Selected = Not (itmX.Selected)
   Next itmX
End Sub

Private Sub cmdOpen_Click()
Dim cc As New GCommonDialog
Dim sFIle As String

   If (cc.VBGetOpenFileName(sFIle, , , , , , "Zip Files (*.ZIP)|*.ZIP|All Files
    (*.*)|*.*", , , "Choose Zip FIle to Open", "ZIP", Me.hwnd)) Then
      pOpen sFIle
   End If
   
End Sub

Private Sub Form_Load()
   
   ' Apologies for the old school interface in this
   ' sample :)
   ' Pls feel wel