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.
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.TopIndex
Disable List2 so that the user is forced To use only the scrollbar of List1, but still
sees the information displayed in List2.
اينتروال تايمر را من 50 گرفتم ولي ليست باكس 2 را غيرفعال نكردم.