Remove Items from ComboBox at run time

[mac-duff]

Hi,

I found this in the internet to add values to a combobox:

  Private Sub ComboBox_Matricula_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox_Matricula.KeyPress
        If e.KeyChar = Chr(Keys.Enter) Then
            ComboBox_Matricula.Items.Add(ComboBox_Matricula.Text)
            ComboBox_Matricula.Text = Nothing
        End If
    End Sub

but the question is now, how can I remove this by marking/ touching with mouse one value and click on the keyboard "del"?

Thx
Stephan

 

[MAS]

Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.Delete Then
            ComboBox1.Items.Remove(CType(sender, ComboBox).SelectedItem)
        End If
    End Sub

I hope this helps

 

[mac-duff]

sorry, my failure, it works perfect

thank u very much