Private Sub Command1_Click()
Dim i As Integer
If ListView1.SelectedItem Is Nothing Then Exit Sub
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected = True Then
MsgBox ListView1.ListItems(i).Key
End If
Next i
End Sub
Best Luck..
Nilesh
