Уважаемые коллеги, есть вопрос - можно ли программно развернуть ComboBox? (+) - VB

Формулировка задачи:

... то есть возникла потребность написать код, который сэмулирует левый клик мыши на стрелке комбобокса...
MS VB 6.0

Решение задачи: «Уважаемые коллеги, есть вопрос - можно ли программно развернуть ComboBox? (+)»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> CommandButton1_Click()
    <font color="blue">Dim</font> xlSh <font color="blue">As</font> Worksheet
    <font color="blue">Set</font> xlSh = Sheets(<font color="teal">"Лист2"</font>)
    xlSh.<font color="blue">Select</font>
    xlSh.OLEObjects(<font color="teal">"ComboBox1"</font>).Activate
    Application.<font color="blue">SendKeys</font> <font color="teal">"{F4}"</font>

<font color="blue">End</font> <font color="blue">Sub</font>
                        