try this:

Private Sub Command1_Click()
Do
Combo1.AddItem "xxxxx"
Label1.Caption = Combo1.ListCount
DoEvents
Loop

End Sub


At 32767 the count goes negative.

Don't use too many I say!

How many were you using?