Sub comboA_click()
comboB.text = comboA.text
End sub

Eger ComboA'daki secili degerlerin ComboB'ye aktarilmasini istiyorsaniz
Sub comboA_click()
comboB.AddItem comboA.text
end sub
__________________