Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            ComboBox1.Items.Add(ComboBox1.Text)
            ComboBox1.Text = ""
            e.Handled = True
        End If
    End Sub

Gru?

Silver