Как получить элемент в определенной позиции в поле со списком?

Question

Мне нужно получить элемент, который находится в определенном месте в поле со списком.

Это то, что я пытаюсь:

Private Sub PrintItems(Combo As ComboBox) 
    Dim i As Long 
    For i = 1 To Combo.ListCount 
     Debug.Print Combo(i) ' Combo(i) is pseudo-code to get the item 
    Next 
End Sub 

Answer 1

Используйте List коллекции. Это нуля, так что третий пункт в выпадающем списке будет индекс 2 и вы должны повторять от 0 до ListCount - 1:

For i = 0 To Combo.ListCount - 1 
    Debug.Print Combo.List(i) 
Next