[VB6] Clic su riga/colonna di ListView

[LMondi]

Ho la necessità di fare apparire un messaggio MsgBox al click su una colonna/riga specifica di una LV. Attualmente, tramite il seguente codice, al click su una qualsiasi riga/colonna con il tasto destro appare il messaggio; ciò mi impedisce di fare eseguire ulteriori messaggi su altre righe/colonne. L'operazione è fattibile ?

Private Sub LvSearch_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
        Dim itm As ListItem
        Set itm = LvSearch.SelectedItem
LvSearch.Refresh
      
    If Len(itm.SubItems(4)) > 0 And Button = 2 And vbRightButton Then
        MsgBox "Numero xxxxxx :   " & itm.Text & Chr(13) & Chr(13) & "Composizione yyyyyyyy:" & Chr(13) & Chr(13) & itm.SubItems(4), vbInformation, "Composizione kkkkkkkkkkk"
    End If
End Sub

Grazie.