Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim Count As Integer
For Count = 0 To ListView1.CheckedItems.Count - 1
Dim LstItem As New ListViewItem
LstItem = ListView1.CheckedItems(Count)
ListView1.Items.Remove(LstItem)
Next
Catch ex As Exception
MessageBox.Show("ลบได้ครั้งละหนึ่งอย่างเท่านั้น")
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim Count As Integer
For Count = 0 To ListView1.CheckedItems.Count - 1
Dim LstItem As New ListViewItem
LstItem = ListView1.CheckedItems(ListView1.CheckedItems.Count - 1)
ListView1.Items.Remove(LstItem)
Next
Catch ex As Exception
MessageBox.Show(ex.Message)