A.Private Sub Combo1_KeyDown(KeyCodeAsI) nteger,Shift As) Integer) If KeyCode=13Then Combo1.AddItem Combo1.Text End If End Sub B.Private Sub Combo1_KeyDown(KeyCode) As Integer,Shift As Integer) If KeyCode=13Then Combo1.AddItem Text1.Text End If End Sub C.Private Sub Combo1_Click() Combo1.AddItem Combo1.Text End Sub D.Private Sub Combo1_Click() Combo1.AddItem Text1.Text