'* 展开Combobox列时
Private Sub MyBase_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles Me.EditingControlShowing
    If InStr(e.Control.ToString, "DataGridViewComboBoxEditingControl", CompareMethod.Text) > 0 Then
        Dim DgComboBox As ComboBox = CType(e.Control, ComboBox)
        AddHandler DgComboBox.SelectionChangeCommitted, AddressOf ComboBox_SelectedIndexChanged
    End If
End Sub

'* 选择列中的Combobox时写入值：
Private Sub ComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
    Dim DgComboBox As ComboBox = CType(sender, ComboBox)
    '写入代码
End Sub