how to add a Dropdown list in combo box (Active x control)

Hi i want to add an drop down list to a activeX combo box using a VB code. i tried this code but it doesn't work.

Private Sub ComboBox1_Change()

With Sheet1.ComboBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
End With

End Sub


Thanks!