Hi Thomas,

In additiion to Tom's suggestion.

Change the lines:

AddItem "A"
AddItem "B"
to:
. AddItem "A"
.AddItem "B"

(Prepend with .)

---
Regards,
Norman



"thomas" wrote in message
...
I've tried to find how to make choices in a combo box but had no luck.
This
is the code I wrote, but it doesn't show up in the combo box:


Private Sub Internet_Change()
With Internet
AddItem "A"
AddItem "B"
End With
End Sub


Why doesn't this show up when form is ran???
Thanks ahead of time,
Tom