Ciao ragazzi
scusate se sono ancora qui a stressarvi con i miei problemi con le proprietà delle List1 ma faccio fatica a capire una cosa:

Come ho postato in un'altro post, mi servirebbe sapere come evidenziare elementi in una list1 con il tasto destro del mouse.
Gentilmente un "collega del forum" mi aiuto' postandomi questo codice:

Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, 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

...al momonento sembrerebbe funzionare, ma funziona solamente una volta!

Vi chiedo la cortesia di aiutarmi.
Grazie mille
Claudio