Private Sub btnRemove_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnRemove.Click
 
        EnableButtons(False)
        lstFiles.Enabled = False
        Dim count As Integer = lstFiles.SelectedItems.Count
        Dim zs(count - 1) As ZipFile
        For i As Integer = 0 To count - 1
            zs(i) = lstFiles.SelectedItems(i).Tag
            sBar.Text = zs(i).Name
            Application.DoEvents()
        Next
        lstFiles.Enabled = True
        Try
            m_oZipArchive.Remove(zs)
        Catch ep As Exception
            MessageBox.Show(ep.Message)
        End Try
        _LoadZipFiles()
    End Sub