Multicolumn Combobox

[Lenin]

Люди помогите пожалуйста с сабжем! Как ни бьюсь не могу сделать следующее:
1.запихнуть программно значения в (например 2х столбцовый) комбобокс
2.Сделать так, чтобы в нем самом отображалось только первое поле, а при выборе значения из списка возвращалось значение из 2го столбца! Вобщем как в фокспро

Можно ли это сделать? Пожалуйста приведите в пример основные куски кода и какие свойства крутить.

Заранее спасибо огромное!

[Konst_One]

Код: Выделить всё

....
With ComboBox1
.AddItem "Text1"
.ItemData(.NewIndex)=1
.AddItem "Text2"
.ItemData(.NewIndex)=2
end with
...


Private Sub ComboBox1_Click()
Debug.Print ComboBox1.ItemData(ComboBox1.ListIndex)
end Sub

[Lenin]

Чорт! Ну почему в VBA нету половины свойств (я про отсутствие ItemData) у объектов? Придется писать в другой раздел. Но, если кто-нибудь знает решение для VBA, то прошу написать...

[Lenin]

Сам разобрался!

.cmbDiagType.AddItem "Item1"
.cmbDiagType.List(0, 1) = 1
.cmbDiagType.AddItem "Item2"
.cmbDiagType.List(1, 1) = 2

Свойства ColumnCount =2 и BoundColumn = 2