You can make two listboxes scroll with each other by using their _Scroll() events and .TopIndex properties.
To use this example code create a form with two listboxes, List1 and List2. Paste the code and then run it. You can scroll either listbox and the other will scroll with it.
Private Sub Form_Load()
For I = 1 To 200
List1.AddItem " TEST 1 " & I
List2.AddItem " TEST 2 " & I
Next I
End Sub
Private Sub List1_Scroll()
List2.TopIndex = List1.TopIndex
End Sub
Private Sub List2_Scroll()
List1.TopIndex = List2.TopIndex
End Sub
Comments