combobox_click后移动焦点有关问题

combobox_click后移动焦点问题
Private Sub ComboBox1_Click()
ComboBox2.Activate
End Sub
Private Sub ComboBox2_GotFocus()
ComboBox2.DropDown
End Sub
怎么实现?就是combobox1_click后,combobox2.dropdown.一运行程序就崩了。现在用sendkeys来代替。。不过这样好多问题。而且combobox1_change时,也会调用这个click。都快没招了。
------解决思路----------------------
是vba里啊,那试试下面的:
Private Sub ComboBox1_Change()
    ComboBox2.Activate
    SendKeys "{f4}"
End Sub