'Delete-Taste gedrückt
    Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As  _
      System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If e.KeyCode = Keys.Delete Then
            If ComboBox1.SelectedIndex > -1 Then
                Dim index As Integer = ComboBox1.SelectedIndex
                ComboBox1.DroppedDown = False
                ComboBox1.Items.RemoveAt(index)
            End If
        End If
    End Sub