Originariamente inviato da vr-claudio
.. l'esempio che ti ho mandato è nell'evento List1_MouseDown...
Dove mi avresti mandato l'esempio ? Nei messaggi privati non ce l'ho !

Meglio nel MouseUp, comunque prova:
codice:
Private Sub List1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Dim n As Integer, h As Single
   If Button = 2 Then
      h = List1.Font.Size
      n = Int(Y / h )
      If n <= (List1.ListCount - 1) Then List1.ListIndex = n
   End If
End Sub
Dove la variabile h dovrebbe contenere l'altezza in punti di ciascuna riga, in modo da trasformare la variabile Y in numero di riga della List.
Cosi' e' un po' imprecisa, ma funziona.

Ciao !