Para que este codigo te funcione te falta indicarle el indice del item al combobox...
Código:
Private Sub AñadirItem()
Combo1.AddItem "Item 1",0
Combo1.AddItem "Item 2",1
Combo1.AddItem "Item...",n
Combo1.AddItem "Item n",n
End Sub
Para agregar elementos a una lista es la misma escencia que el del combobox... Si es a eso a lo q te refieres...