Const CB_SHOWDROPDOWN = &H14F
Пошлите сообщение CB_SHOWDROPDOWN комбинированному окну (ComboBox) для открытия или закрытия раскрывающего списка
Сообщение всегда возвращает значение, отличное от 0
' Раскрываем список комбинированного окна Combo1. ' Установите на форме ComboBox, установите Style равным 0 или 2, ' и заполните List любыми значениями Dim retval As Long ' возвращаемое значение retval = SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, ByVal 1, ByVal 0)