Combo1.AddItem Text1, 0
Combo1.Text = Combo1.List(0)
or
Combo1.AddItem Text1
Combo1.Text = Combo1.List(Combo1.ListCount - 1)