Заполнение поля ListBox

[Boomer_00]

Подкажите пожалуйста как в VBA заполнить поле ListBox
Например:
Q
W
В VB в свойствах поля есть строка List c помощью которой можно его заполнять. В VBA такого нет, а код типа

Option Explicit
Private Sub ListBox1_Click()
With ListBox1
.AddItem "Q"
.AddItem "W"
.ListIndex = 0
End With
End Sub

не работает.

[alibek]

В каком именно A?

[Boomer_00]

В VBA for AutoCAD, MS Word, ...

[alibek]

В автокаде не знаю. В ворде можно использовать .Column.

[Boomer_00]

А можно пожалуйста по подробнее???

[alibek]

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

With ListBox1
  .ColumnCount = 3
  .ColumnWidths = "0 pt;30 pt;"
  .TextColumn = 3
End With
With ListBox1
  .AddItem 1
  .Column(1, 0) = "RUR"
  .Column(2, 0) = "рубль"
  .AddItem 2
  .Column(1, 1) = "USD"
  .Column(2, 1) = "доллар"
  .AddItem 3
  .Column(1, 2) = "EUR"
  .Column(2, 2) = "евро"
End With

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

Private Sub ListBox1_Click()
MsgBox "Value: " & ListBox1.Value & "; Text: " & ListBox1.Text
End Sub

[Boomer_00]

Огромное спасибо все получилось!!!!!!!!