Const LB_ADDSTRING = &H180
Пошлите сообщение LB_ADDSTRING, чтобы добавить новую строку в список. Если элементы списка отсортированы, то новый элемент будет помещён в соответствующую позицию. В противном случае новый элемент будет помещён в конец списка. Используйте LB_INSERTSTRING, позволяющее вставлять новый элемент в любую позицию
В успешном случае сообщение возвращает отсчитываемый от нуля индекс позиции добавленного элемента списка. В случае отсутствия места для хранения новой строки возвращается LB_ERRSTRING. При других ошибках возвращается LB_ERR
' смотри также пример listbox.zip
Dim lRet as Long
lRet = SendMessage(List1.hWnd, LB_ADDSTRING, ByVal 0, ByVal "Первая строчка")
lRet = SendMessage(List1.hWnd, LB_ADDSTRING, ByVal 0, ByVal "Вторая строчка")