Get Selected Item of DataGridViewComboBoxCell on a Single Click

'YouTube Video - https://www.youtube.com/watch?v=H8ryeAekLZk

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim cmbCol As New DataGridViewComboBoxColumn
        With cmbCol
            .Name = "CmbCol"
            .HeaderText = "Choose Item"
            For i = 1 To 10
                If i Mod 2 Then
                    .Items.Add("Bababa" & i)
                Else
                    .Items.Add("Nanana" & i)
                End If
            Next

        End With
        Dim txtCol As New DataGridViewTextBoxColumn
        With txtCol
            .Name = "txtCol"
            .HeaderText = "Output"
        End With
        DGV.Columns.Add(cmbCol)
        DGV.Columns.Add(txtCol)
    End Sub

    Private Sub DGV_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV.CellClick
        If TypeOf DGV.Columns(0) Is DataGridViewComboBoxColumn AndAlso e.ColumnIndex = 0 Then
            DGV.BeginEdit(True)
            DirectCast(DGV.EditingControl, ComboBox).DroppedDown = True
        End If
    End Sub
    Private Sub DGV_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DGV.EditingControlShowing
        If e.Control IsNot Nothing AndAlso DGV.CurrentCell.ColumnIndex = 0 Then
            Dim cmb As ComboBox = CType(e.Control, ComboBox)

            RemoveHandler cmb.SelectedIndexChanged, AddressOf Cmb_SelectedIndexChanged
            AddHandler cmb.SelectedIndexChanged, AddressOf Cmb_SelectedIndexChanged
        End If
    End Sub
    Private Sub Cmb_SelectedIndexChanged(sender As Object, e As EventArgs)
        Dim cmb As ComboBox = CType(sender, ComboBox)
        If cmb.SelectedIndex > -1 Then
            TxtOutput.Text = cmb.Text
            DGV.Rows(DGV.CurrentCell.RowIndex).Cells(1).Value = cmb.Text
        End If
    End Sub
    Private Sub DGV_CurrentCellDirtyStateChanged(sender As Object, e As EventArgs) Handles DGV.CurrentCellDirtyStateChanged
        DGV.EndEdit()
    End Sub
End Class