Private Sub ListView1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles ListView1.ItemCheck
Dim l As ListViewItem
Dim s As String = ""
For Each l In ListView1.CheckedItems
'Do whatever you like with this item
If s.Length = 0 Then s &= l.Text Else s &= "," & l.Text
Next
End Sub