A.Private Sub Combol_KeyDown(KeyCode As Integer,Shift As Integer) If KeyCode=13 Then Combol.AddItem Combol.Text End If End Sub B.Private Sub Combol_KeyDown(KeyCode As Integer,Shift As Integer) If KeyCode=13 Then Combol.Addltem Text1.Text End If End Sub C.Private Sub Combol—Click() Combol.Addltem Combol.Text End Sub D.Private Sub Combol—Click() Cornbol.AddItem Text1.Text End Sub