Const CB_RESETCONTENT = &H14B
Пошлите сообщение CB_RESETCONTENT, чтобы удалить все элементы списка из комбинированного окна
' Удаляем все элементы списка из комбинированного окна. ' Разместите на форме ComboBox и кнопку Command1 для примера Private Sub Command1_Click() Dim retval As Long ' возвращаемое значение ' Удаляем все элементы списка retval = SendMessage(Combo1.hWnd, CB_RESETCONTENT, ByVal CLng(0), ByVal CLng(0)) End Sub