Cancellare un Item

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
                Dim lCount As Integer 
 
                For lCount = 1 To 5 
                        ListView1.Items.Add(lCount) 
                        Application.DoEvents() 
                Next 
 
                If ListView1.Items.Count > 0 Then 
                        ListView1.Items(0).Selected = True 
                        'ListView1.TopItem.Selected = True 
                        Call Display(ListView1.Items(0).Text) 
                End If 
        End Sub 
 
        Private Sub ListView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick 
                Dim lvw As Windows.Forms.ListView = CType(sender, Windows.Forms.ListView) 
                Call Display(lvw.FocusedItem.Text) 
        End Sub 
 
        Private Sub Display(ByVal sText As String) 
                lblSelected.Text = sText 
        End Sub 
 
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
                Dim lCount As Integer 
                For lCount = ListView1.Items.Count - 1 To 0 Step -1 
                        If ListView1.Items(lCount).Selected Then 
                                ListView1.Items(lCount).Remove() 
                        End If 
                        Application.DoEvents() 
                Next 
 
                If ListView1.Items.Count > 0 Then 
                        ListView1.Items(0).Selected = True 
                        'ListView1.TopItem.Selected = True 
                        Call Display(ListView1.Items(0).Text) 
                End If 
        End Sub