how to add items in combo box

[satish.s]

Dear Sir,
I have created an combo box and added some items if i want to add an other items so how to add these items using textbox kindly do need full

Regards
Satish.S

[S0LARIS]

Hi,this way:

Private Sub Command1_Click()
Combo1.AddItem Text1.Text
End Sub

[CDRIVE]

You can do it in the KeyDown event too.

Option Explicit

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = (13) Then        ' if Enter key is pressed.
      Combo1.AddItem Text1.Text
   End If
End Sub