Private Sub DGV1_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DGV1.EditingControlShowing
If Me.DGV1.CurrentCell.ColumnIndex = 0 And Not e.Control Is Nothing Then
Dim td As TextBox = CType(e.Control, TextBox)
AddHandler td.KeyDown, AddressOf TextBox_KeyDown
AddHandler tb.KeyPress, AddressOf TextBox_KeyPress
End If
End Sub