Segue exemplo sendo LV um listview:
'FORM LOAD
Private Sub Form_Load()
lv.ListItems.Add , , "Item 1"
lv.ListItems(1).SubItems(1) = "Subitem A1"
lv.ListItems(1).SubItems(2) = "Subitem B1"
lv.ListItems.Add , , "Item 2"
lv.ListItems(2).SubItems(1) = "Subitem A2"
lv.ListItems(2).SubItems(2) = "Subitem B2"
End Sub
Private Sub lv_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim col As Integer
col = ColunaLV(x, y, lv)
If col > 1 And col <> 0 Then
MsgBox lv.SelectedItem.SubItems(col - 1)
ElseIf col = 1 Then
MsgBox lv.SelectedItem.Text
End If
End Sub
Private Function ColunaLV(ByVal x As Long, ByVal y As Long, ByVal NameLv As ListView) As Integer
Dim i As Long
For i = 1 To NameLv.ColumnHeaders.Count
If x >= NameLv.ColumnHeaders(i).Left And x < (NameLv.ColumnHeaders(i).Left + NameLv.ColumnHeaders(i).Width) Then
ColunaLV = i
Exit For
End If
Next
End Function
Ao clicar em cada item vc vai saber em qual está clicando se na coluna 1 ou na coluna 2, coluna 3 e assim por diante pois a função retorna a coluna clicada.
É possível que vc tenha que fazer adaptações mas ó básico está aí.
obs.: lv_mouseup é o evento do mouseup do listview
at+