Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
 
 
        Dim item1 As New ListViewItem("eintrag1")
        item1.SubItems.Add("sub1")
        item1.SubItems.Add("sub2")
        item1.SubItems.Add("sub3")
        Dim item2 As New ListViewItem("eintrag2")
        item2.SubItems.Add("sub4")
        item2.SubItems.Add("sub5")
        item2.SubItems.Add("sub6")
        Dim item3 As New ListViewItem("eintrag3")
        item3.SubItems.Add("sub7")
        item3.SubItems.Add("sub8")
        item3.SubItems.Add("sub9")
 
        ListView1.Items.AddRange(New ListViewItem() {item1, item2, item3})
End Sub
 
 
    Private Sub ListView1_ItemActivate(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles ListView1.ItemActivate
 
        Dim si As Single
        For si = 1 To Me.ListView1.FocusedItem.SubItems.Count - 1
            MsgBox(Me.ListView1.FocusedItem.SubItems.Item(si).ToString)
        Next
End Sub