[求助]如何遍历combobox中的所有值

mycad

[求助]如何遍历AutoCAD vba 中的 combobox中的所有值？

如：

combobox1.additem"1"

combobox1.additem"2"

combobox1.additem"3"

.....................

然后把此值读取出来？

雪山飞狐_lzh

Private Sub UserForm_Click()
ComboBox1.AddItem "123"
ComboBox1.AddItem "456"
Dim i As Integer
For i = 0 To ComboBox1.ListCount - 1
MsgBox ComboBox1.List(i)
Next
End Sub