codice:
Private Sub Command1_Click()
   Combo1.AddItem "uno"
   Combo1.AddItem "due"
   Combo1.AddItem "tre"
   Combo1.AddItem "quattro"
   Combo1.Text = Combo1.List(0)
End Sub