Private Sub List1_Scroll()
  List2.TopIndex = List1.TopIndex
  List3.TopIndex = List1.TopIndex
End Sub
Private Sub List2_Scroll()
  List1.TopIndex = List2.TopIndex
  List3.TopIndex = List2.TopIndex
End Sub
Private Sub List3_Scroll()
  List1.TopIndex = List3.TopIndex
  List2.TopIndex = List3.TopIndex
End Sub