Изменение высоты выпадающего списка в ImageCombo - VB

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

Почему-то не смог найти поиском даже поднятие этого вопроса.
Стандартный метод для ComboBox-а (с изменением высоты окна) не работает :(

Решение задачи: «Изменение высоты выпадающего списка в ImageCombo»

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

                            <font color="blue">Public</font> <font color="blue">Sub</font> ReSizeCombo2(cbo <font color="blue">As</font> Control, n <font color="blue">As</font> <font color="blue">Integer</font>)
  <font color="blue">Dim</font> cboLeft <font color="blue">As</font> <font color="blue">Long</font>, cboTop <font color="blue">As</font> <font color="blue">Long</font>, cboWidth <font color="blue">As</font> <font color="blue">Long</font>
  <font color="blue">Dim</font> cboHeight <font color="blue">As</font> <font color="blue">Long</font>, h <font color="blue">As</font> <font color="blue">Long</font>, re <font color="blue">As</font> RECT
  <font color="blue">Call</font> GetWindowRect(cbo.hWnd, re)
  cboLeft = re.Left
  cboTop = re.Top
  cboWidth = re.Right - re.Left
  h = SendMessage(cbo.hWnd, CB_GETITEMHEIGHT, <font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>0</b></font>)
  cboHeight = h * (n + <font color="darkblue"><b>2</b></font>)
  SetWindowPos cbo.hWnd, <font color="darkblue"><b>0</b></font>, cboLeft, cboTop, cboWidth, cboHeight, SWP_NOMOVE
<font color="blue">End</font> <font color="blue">Sub</font>
                        