What part doesnt work - you'll need to be more specific
Example Code to determine items collection is being added to correctly
Me.ComboBox1.Items.Add("foo1")
MsgBox(ComboBox1.Items.Count)
Me.ComboBox1.Items.Add("foo2")
MsgBox(ComboBox1.Items.Count)
Me.ComboBox1.Items.Add("foo3")
MsgBox(ComboBox1.Items.Count)
Me.ComboBox1.Items.Add("foo4")
MsgBox(ComboBox1.Items.Count)
Dim stotalstring As String = ""
For Each s As String In Me.ComboBox1.Items
stotalstring = stotalstring & s & vbCrLf
Next
MsgBox(stotalstring)
Seems to work just fine