VB.Net การคีย์ข้อมูลลงใน Datagridview โดยตรง และ Class create tools/control/object

Private Sub dataGridView1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
    If e.KeyData = Keys.Enter Then
        e.SuppressKeyPress = True
        SendKeys.Send("{Tab}")
    End If
End Sub

Private Sub dataGridView1_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
    e.SuppressKeyPress = True
    Dim iColumn As Integer = dataGridView1.CurrentCell.ColumnIndex
    Dim iRow As Integer = dataGridView1.CurrentCell.RowIndex

    'ถ้าอยู่คอลัมน์สุดท้าย
    If iColumn = dataGridView1.Columncount - 1 Then
        'ยังมีแถวถัดไป
        If dataGridView1.RowCount > (iRow + 1) Then
            'ให้ขึ้นแถวใหม่และโฟกัสคอลัมน์แรก
            dataGridView1.CurrentCell = dataGridView1(1, iRow + 1)
        Else
            'แต่ถ้าอยู่แถวสุดท้ายแล้วเอาไงต่อ เช่น ไปโฟกัสที่คอนโทรลอื่น, หรือวนกลับไปที่ cell แรก ฯลฯ
        End If
    Else
        'ถ้าไม่ใช่คอลัมน์สุดท้ายให้โฟกัสที่คอลัมน์ถัดไป(ทางขวา)
        dataGridView1.CurrentCell = dataGridView1(iColumn + 1, iRow)
    End If
End Sub

dataGridView1.Columns.Items(i).DefaultCellStyle.Format = "0.00##"

Private Sub dataGridView1_CellFormatting(ByVal sender As Object, ByVal e As DataGridViewCellFormattingEventArgs)
    If e.RowIndex = 0 And e.ColumnIndex = 6 Then
        e.CellStyle.Format = "N2"
    End If
End Sub

dataGridView1.Columns("Money").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

MyDatagridview.Columns(4).DefaultCellStyle.Format = "dd/MM/yyyy"

dataGridViewCellStyle.Format = "dd/MM/yyyy"

Convert.ToDateTime()

xxx.ToString()

Public Class MyTextBox
    Inherits TextBox

    'ส่วน Property
    Public Shadows Property SelectionStart As Integer
        Get
            '   Get Code
        End Get
        Set(ByVal value As Integer)
            '   Set code 
        End Set
    End Property

    'ส่วน Event
    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
        If Me.TextLength < 4  Then
            Me.ForeColor = Color.Red
        Else
            Me.ForeColor = Color.Black
        End If

        MyBase.OnTextChanged(e)
    End Sub
End Class