
      cmdAll_Click
   Case 1
      cmdInvert_Click
   End Select
End Sub

Private Sub mnuFile_Click(Index As Integer)
   Select Case Index
   Case 0
      cmdOpen_Click
   Case 1
      cmdExtract_Click
   Case 8
      Unload Me
   Case Else
      If mnuFile(Index).Tag &lt;&gt; "" Then
         pOpen mnuFile(Index).Tag
      End If
   End Select
End Sub

Private Sub mnuHelp_Click(Index As Integer)
   MsgBox "vbAccelerator UnZip Demonstration." &amp; vbCrLf &amp; vbCrLf &amp; "This sample
    uses decompress