Suppose you have two list boxes side by side-one to display the name of a person, the other to display his or her e-mail address. If the boxes contain several entries, you want both boxes to scroll at the same time. For example, when the user uses the scrollbar of the Names list box, the lines of the e-mail list box remain at the level of the corresponding Names list-box lines.Unfortunately, the Click event of list boxes doesn’t let you monitor the use of its scrollbar. The solution is to use a Timer in conjunction with the TopIndex property of your list boxes to compare and adjust the level of both boxes frequently.Set the Interval property of the Timer to 50, and type this simple line of code in the Timer event:
Private Sub Timer1_Timer() If List1.TopIndex <> List2.TopIndex Then _ List2.TopIndex = List1.TopIndexEnd SubDisable List2 so that the user is forced to use only the scrollbar of List1, but still sees the information displayed in List2.
