ÎÒ ²É ÓÃ Äã µÄ ´ú Âë £¬ µÄ È· ´æ ÔÚ ÎÊ Ìâ ¡£ Äã ¿É ÒÔ ÊÔ ÊÔ ÏÂ Ãæ µÄ ´ú Âë £¬ ÔÚ ÎÒ Õâ Àï Õý ³£ £º 
    Private Sub Combo1_Click() 
     Combo2.ListIndex = Combo1.ListIndex 
     Combo3.ListIndex = Combo1.ListIndex 
    End Sub 
     
    Private Sub Combo2_Click() 
     Combo1.ListIndex = Combo2.ListIndex 
     Combo3.ListIndex = Combo2.ListIndex 
    End Sub 
     
    Private Sub Combo3_Click() 
     Combo2.ListIndex = Combo3.ListIndex 
     Combo3.ListIndex = Combo3.ListIndex 
    End Sub 
     
    Private Sub Form_Load() 
     Dim i 
     For i = 0 To 5 
     Combo1.AddItem "A" & i 
     Combo2.AddItem "B" & i 
     Combo3.AddItem "C" & i 
     Next 
     Combo1.ListIndex = 0 
    End Sub 
    Áí Íâ Ò» ¸ö °ì ·¨ ÊÇ 
    Private Sub Combo1_Click() 
     If Combo2.ListIndex <> Combo1.ListIndex Then 
     Combo2.Text = Combo2.List(Combo1.ListIndex) 
     End If 
     If Combo3.ListIndex <> Combo1.ListIndex Then 
     Combo3.Text = Combo3.List(Combo1.ListIndex) 
     End If 
    End Sub 
<END>