Private Sub Form_Load()
  For i = 1 To 100
    List1(0).AddItem i
    List1(1).AddItem i
  Next
End Sub
 
Private Sub List1_Click(Index As Integer)
  Select Case Index
    Case 0
      List1(1).ListIndex = List1(0).ListIndex
    Case 1
      List1(0).ListIndex = List1(1).ListIndex
  End Select
End Sub
 
Private Sub List1_Scroll(Index As Integer)
  Select Case Index
    Case 0
      List1(1).TopIndex = List1(0).TopIndex
    Case 1
      List1(0).TopIndex = List1(1).TopIndex
  End Select
End Sub