ComboBox простой вопрос - VB

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

Подскажите пожалуйста, как при нажатии на Command1 заставить Combo1 выбрасывать список.

Решение задачи: «ComboBox простой вопрос»

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

                            <font color="blue">Public</font> <font color="blue">Declare</font> <font color="blue">Function</font> SendMessage Lib <font color="teal">"user32.dll"</font> _
  Alias <font color="teal">"SendMessageA"</font> ( _
  <font color="blue">ByVal</font> hwnd <font color="blue">As</font> <font color="blue">Long</font>, _
  <font color="blue">ByVal</font> wMsg <font color="blue">As</font> <font color="blue">Long</font>, _
  <font color="blue">ByVal</font> wParam <font color="blue">As</font> <font color="blue">Long</font>, _
  <font color="blue">ByRef</font> lParam <font color="blue">As</font> Any) <font color="blue">As</font> <font color="blue">Long</font>

<font color="blue">Public</font> <font color="blue">Const</font> CB_SHOWDROPDOWN = &H14F
                        