Const CB_GETCOUNT = &H146
Пошлите сообщение CB_GETCOUNT для определения количества элементов списка в комбинированном окне(ComboBox)
' Узнаем число элементов в Combo1 ' Поместите на форму комбинированное окно Combo1 с любым количеством элементов Dim retval As Long ' возвращаемое значение ' Узнаем число элементов retval = SendMessage(Combo1.hWnd, CB_GETCOUNT, ByVal 0, ByVal 0) Debug.Print retval