Private Sub List1_Click()
List2.Selected(List1.ListIndex) = True
List1.Selected(List2.ListIndex) = True
End Sub
我试了一下这句代码，其实对应关系没有错，只是显示得不平行而已。见图：
