combox 如何实现联动？

Question

举例：两个combo1,combo2
希望自改变combo1时combo2中的内容也能实现改变，即combo1是第三个combo2也是第三个

Answer 1

Private Sub Combo1_Click()
Combo2.Text = Combo2.List(Combo1.ListIndex)
End SubPrivate Sub Form_Load()
With Combo1
    .AddItem "a", 0
    .AddItem "b", 1
    .AddItem "c", 2
    .ListIndex = 0
End With
With Combo2
    .AddItem "A", 0
    .AddItem "B", 1
    .AddItem "C", 2
    .ListIndex = 0
End WithEnd Sub

Answer 2

Private Sub Combo1_Click()
    Combo2.ListIndex = Combo1.ListIndex
End Sub