Спрятать ComboBox в ячейке DataGridView после выбора в нем значения

Private btn As New ComboBox 'создаем контрол
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'добавляем событие
        AddHandler btn.TextChanged, AddressOf btn_TextChanged
        'устанавливаем ширину контрола по ширине ячейки
        btn.Width = DataGridView1.Columns(0).Width
        'добавляем данные в контрол
        Dim st() As String = {"MMMM", "HHHHH", "BBBBB", "ТРОЛЯ"}
        btn.Items.AddRange(st)
        
        For i As Integer = 0 To 5
            DataGridView1.Rows.Add()
        Next
        
    End Sub
 
    Private Sub btn_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        For i As Integer = 0 To DataGridView1.RowCount - 1
            If DataGridView1(1, i).Selected = True Then
                'добавляем в ячейку значение контрола
                DataGridView1(1, i).Value = btn.Text
                'удаляем контрол
                DataGridView1.Controls.Clear()
                DataGridView1.Refresh()
            End If
        Next
 
    End Sub
 
    Private Sub DataGridView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseClick
        For i As Integer = 0 To DataGridView1.RowCount - 1
            If DataGridView1(1, i).Selected = True Then
                'добавляем контрол в ячейку таблицы
                DataGridView1.Controls.Add(btn)
                'делаем контрол по размеру ячейки
                btn.Location = DataGridView1.GetCellDisplayRectangle(1, i, False).Location
                'btn.Text = DataGridView1(1, i).Value
            End If
        Next
        If DataGridView1.CurrentCell.ColumnIndex <> 1 Then DataGridView1.Controls.Clear() : btn.Text = ""
       
    End Sub