Private Sub Form_Load()
List1.Clear
List2.Clear
For i = 1 To 100
List1.AddItem i
List2.AddItem i
Next i
End Sub
Private Sub List1_Click()
'MsgBox List1.ListCount
If List1.ListIndex <= List2.ListCount - 1 Then
List2.ListIndex = List1.ListIndex
End If
End Sub
在窗体上放两个LIST控件,你试试效果吧