Dim TempStr(1) As String
Dim NewNode As ListViewItem
ListView1.View = View.Details
' FullRowSelect has to be True
ListView1.FullRowSelect = True
ListView1.Columns.Clear()
ListView1.Columns.Add("Column1", 100)
ListView1.Columns.Add("Column2", 100)
ListView1.Items.Clear()
TempStr(0) = "foo"
TempStr(1) = "bar"
NewNode = New ListViewItem(TempStr)
ListView1.Items.Add(NewNode)
TempStr(0) = "another"
TempStr(1) = "item"
NewNode = New ListViewItem(TempStr)
ListView1.Items.Add(NewNode)

Private Sub ListView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
  Dim HTInfo As ListViewHitTestInfo = ListView1.HitTest(e.Location)
  Dim TempStr As String
  HTInfo = ListView1.HitTest(e.Location)
  TempStr = HTInfo.SubItem.ToString
  MessageBox.Show(TempStr, _
    "SubItem", _
    MessageBoxButtons.OK, _
    MessageBoxIcon.Information)
End Sub