Редактирование элемента combobox в его текстовом окне

Private Sub cboTitle_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboTitle.TextChanged
    If cboTitle.Items.Count > 0 Then
            cboTitle.Items.RemoveAt(idxCurItem)
            cboTitle.Items(idxCurItem) = cboTitle.Text
    End If
End Sub

    Private Sub cboTitle_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles cboTitle.SelectionChangeCommitted
        sender.Tag = sender.SelectedIndex
    End Sub
 
    Private Sub cboTitle_TextChanged(sender As Object, e As EventArgs) Handles cboTitle.TextChanged
        If sender.Tag IsNot Nothing Then
            sender.Items(sender.Tag) = sender.Text
        End If
    End Sub

Private Sub cboTitle_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboTitle.SelectedIndexChanged
        'синхронизация выбранных пунктов между двумя combobox
        cboCommandLine.SelectedIndex = cboTitle.SelectedIndex
        idxCurItem = cboTitle.SelectedIndex    
        sender.Tag = sender.SelectedIndex   'это я добавил, иначе не редактируется первый элемент списка
End Sub

cboTitle.AddItem cboTitle.Text, idxCurItem

Private Sub cboTitle_.GotFocus(sender As Object, e As EventArgs) Handles cboTitle.GotFocus
        sender.Tag = sender.SelectedIndex
End Sub

Private Sub ComboBox_Component_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox_Component.SelectedIndexChanged
        If ComboBox_Component.SelectedIndex = -1 Then
            ComboBox_Component.SelectedIndex = ComboBox_Comp_Sel_Index
        Else
            ComboBox_Comp_Sel_Index = ComboBox_Component.SelectedIndex
        End If
End Sub

Imports System.ComponentModel
 
Public Class Form1
 
  Private ItemList As New BindingList(Of String)
 
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    With ItemList
      .Add("1111")
      .Add("2222")
      .Add("3333")
    End With
    ComboBox1.DataSource = ItemList
  End Sub
 
  Private Sub ComboBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ComboBox1.Validating
    Dim contxt As BindingManagerBase = Me.BindingContext(ItemList)
    Dim index As Integer = contxt.Position 'можно было переменную не создавать, а на прямую использовать Position
    ItemList(index) = ComboBox1.Text
  End Sub
End Class

    '-------------------------------------------------------------
    'Для ручного изменения имени пунктов ComboBox_Component (Text)
    '-------------------------------------------------------------
    'Глобальная переменная
    Dim ComboBox_Comp_Sel_Index As Integer              'Для индекса выбранного пункта в ComboBox
 
    'Происходит при изменении значения свойства Text.
    Private Sub ComboBox_Component_TextChanged(sender As Object, e As EventArgs) Handles ComboBox_Component.TextChanged
        If ComboBox_Component.Focused = True Then           'Если получен фокус ComboBox_Component (отсеивать изменения, происходящие не в ручную)
            If sender.Tag IsNot Nothing Then
                sender.Items(sender.Tag) = sender.Text
            End If
        End If
    End Sub
 
    'Событие "SelectionChangeCommitted" выполняется после того, как значение было выбрано из списка и список закрылся
    Private Sub ComboBox_Component_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox_Component.SelectionChangeCommitted
        sender.Tag = sender.SelectedIndex
        ComboBox_Comp_Sel_Index = ComboBox_Component.SelectedIndex  'Сохраняю SelectedIndex в глобальную переменную ComboBox_Comp_Sel_Index
        TabControl_Data.Focus()                                     'Снять выделение содержимого после выбора из списка (выделяю TabControl, где находится ComboBox)
    End Sub
 
    'Событие, если ComboBox получает фокус (изменение имени без раскрытия списка)
    Private Sub ComboBox_Component_GotFocus(sender As Object, e As EventArgs) Handles ComboBox_Component.GotFocus
        ComboBox_Comp_Sel_Index = ComboBox_Component.SelectedIndex  'Сохраняю SelectedIndex в глобальную переменную ComboBox_Comp_Sel_Index
        sender.Tag = sender.SelectedIndex
    End Sub
 
    'Событие, если ComboBox теряет фокус
    Private Sub ComboBox_Component_LostFocus(sender As Object, e As EventArgs) Handles ComboBox_Component.LostFocus
        ComboBox_Component.SelectedIndex = ComboBox_Comp_Sel_Index  'Сохраняю SelectedIndex в глобальную переменную ComboBox_Comp_Sel_Index
    End Sub