Multiselect su ListView

[w_t]

Cosi funziona !!!

ma mi ripete solamente il primo rigo selezionato per tante volte quanti sono i righi selezionati.....

        Dim i As Integer
        For i = 1 To lwClienti.SelectedItems.Count
            If lwClienti.SelectedItems.Count > 0 Then
                MsgBox(lwClienti.SelectedItems.Item(0).Text)
            End If
        Next

La mia ListView la popolo cosi:

    Public Sub PopolaClienti() 
        Try 
            lwClienti.Items.Clear() 
            Dim li As ListViewItem 
            oConn.Open() 
            Dim comm As New SqlCommand("SELECT * FROM Clienti", oConn) 
            Dim read As SqlDataReader = comm.ExecuteReader 
            While read.Read() 
                li = lwClienti.Items.Add(read("ID")) 
                li.SubItems.Add(read("Codice_Fiscale")) 
                li.SubItems.Add(read("Ragione_Sociale")) 
                li.SubItems.Add(read("###")) 
                li.SubItems.Add(read("###")) 
                li.SubItems.Add(read("###")) 
                li.SubItems.Add(read("###")) 
                li.SubItems.Add(read("###")) 
                li.SubItems.Add(read("###")) 
                li.SubItems.Add(read("###")) 
                li.SubItems.Add(read("###")) 
                li.SubItems.Add(read("###")) 
            End While 
            oConn.Close() 
        Catch 
            oConn.Close() 
            MessageBox.Show("Si è verificato un errore su: PopoloClienti.", "Errore!", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) 
            Exit Sub 
        End Try 
    End Sub