listbox ???

[ВуД]

Как сделать: вот у меня два listbox я нажимаю на один из них и мне надо что нажался и второй?

[hCORe]

'на форме ListBox: List1, List2

Код: Выделить всё

Private Sub Form_Load()
    List1.AddItem "Synchrophasotron"
    List1.AddItem "Casuality"
    List2.AddItem "Needs repair"
    List2.AddItem "Needs existence"
    List1.ListIndex = 0
    List1_Click
End Sub

Private Sub List1_Click()
On Error Resume Next
    If List2.ListIndex <> List1.ListIndex Then _
    List2.ListIndex = List1.ListIndex
End Sub

Private Sub List2_Click()
On Error Resume Next
    If List1.ListIndex <> List2.ListIndex Then _
    List1.ListIndex = List2.ListIndex
End Sub