ListView

1. I want to delete the item select my listview using this code but it doesn't work!

ListView1.Items.RemoveAt(ListView1.SelectedIndexCollection)

2. Using the code below I want to show in a messagebox the item of each listview.

Dim a As Integer
For a = 0 To ListView1.Items.Count - 1
MessageBox.Show(ListView1.Items(a).Text & Chr(13) & ListView1.Items(a).SubItems(a).Text & Chr(13) & ListView1.Items(a).SubItems(a).Text)
Next

The message box should show like this,

001
John
Accounting

002
Mark
Commerce

003
Jason
Law
========================

Kindly help me solve these two problems in ListView?

Attached w/ this thread is the file of this project.. thanks

to list your items / subitems ....

VB Code:

Dim lvi As ListViewItem
        Dim x As String = Environment.NewLine
        For Each lvi In ListView1.Items
            MessageBox.Show(lvi.Text & x & lvi.SubItems(0).Text & x & lvi.SubItems(1).Text)
        Next

to remove an item...

VB Code:

Dim lvi As ListViewItem = DirectCast(ListView1.Items(1), ListViewItem) '/// where (1) is the index of the item
        ListView1.Items.Remove(lvi)