Private Sub Combo1_Click()
C.all ShowItem(Combo1, Label1)
E.nd Sub
Private Sub Combo2_Click()
C.all ShowItem(Combo2, Label2)
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
______.Caption =______.Text