Const CB_ADDSTRING = &H143
Пошлите сообщение CB_ADDSTRING, чтобы добавить новый элемент списка в комбинированное окно. Если элементы списка отсортированы, то новый элемент будет помещен в соответствующую позицию. В противном случае новый элемент будет помещен в конец списка. Используйте CB_INSERTSTRING, позволяющее вставлять новый элемент в любую позицию
В успешном случае сообщение возвращает отсчитываемый от нуля индекс позиции добавленного элемента списка в комбинированном окне. В случае отсутствия места для хранения новой строки возвращается CB_ERRSPACE. В случае других ошибок возвращается CB_ERR
Const CB_ERR = -1
Const CB_ERRSPACE = -2
' Добавляем новый элемент списка в комбинированное окно.
' Разместите на форме ComboBox и кнопку Command1 для примера
Private Sub Command1_Click()
Dim retval As Long ' возвращаемое значение
' Добавляем новую строчку в Combo1
retval = SendMessage(Combo1.hWnd, CB_ADDSTRING, ByVal CLng(0), ByVal "Русский_Проект")
End Sub