listbox

[erbuson]

Hola:

Para ver como funciona este ejemplo, crea un nuevo proyecto, añádele tres List1 con los índices 0, 1 y 2, pega este código y pruébalo

Private Sub Form_Load()
' Cargamos en los List lineas de ejemplo
Dim Indice As Integer
For Indice = 1 To 50
List1(0).AddItem Indice
List1(1).AddItem Indice
List1(2).AddItem Indice
Next
End Sub

Private Sub List1_Click(Index As Integer)
' Cuando hacemos Click en uno cambiamos los demás
Dim Indice As Integer
For Indice = 0 To List1.Count - 1
If Indice <> Index Then List1(Indice).ListIndex = List1(Index).ListIndex
Next
End Sub

Private Sub List1_Scroll(Index As Integer)
' Cuando hacemos Scroll en uno cambiamos los demás
Dim Indice As Integer
For Indice = 0 To List1.Count - 1
If Indice <> Index Then List1(Indice).TopIndex = List1(Index).TopIndex
Next
End Sub

Y cualquier duda, comenta, saludos