Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim Seleccion As Integer If Button = 4 Then Seleccion = List1.List(List1.ListIndex) MsgBox Seleccion End If End Sub
Eso te muestra el item seleccionado cuando apretas el boton del scroll... pero no t lo selecciona :S