Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
#End Region
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim dataGrid1 As New MyDataGrid
 
        AddHandler dataGrid1.KeyDown, AddressOf DataGrid_KeyDown
        Dim dt As New DataTable("Users")
        Dim r As DataRow
 
        dt.Columns.Add(New DataColumn("id", GetType(Integer)))
        dt.Columns.Add(New DataColumn("vorname", GetType(String)))
        dt.Columns.Add(New DataColumn("nachname", GetType(String)))
 
        r = dt.NewRow
        r("id") = 1
        r("vorname") = "peter"
        r("nachname") = "lustig"
        dt.Rows.Add(r)
 
        r = dt.NewRow
        r("id") = 2
        r("vorname") = "hans"
        r("nachname") = "meier"
        dt.Rows.Add(r)
 
        dataGrid1.DataSource = dt
 
        Dim ts As New DataGridTableStyle
        Dim dgc As DataGridTextBoxColumn
 
        ts.MappingName = "Users"
        For Each c As DataColumn In dt.Columns
            dgc = New DataGridTextBoxColumn
            dgc.MappingName = c.ColumnName
            dgc.HeaderText = c.ColumnName.ToUpper
            dgc.Width = 100
            ts.GridColumnStyles.Add(dgc)
        Next
        dataGrid1.TableStyles.Add(ts)
        dataGrid1.Size = New Size(300, 300)
        Me.Controls.Add(dataGrid1)
 
    End Sub
 
    Private Sub DataGrid_KeyDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs)
        If e.KeyData = Keys.Return Then
            MessageBox.Show("Enter!")
        End If
    End Sub
 
End Class
 
Public Class MyDataGrid
    Inherits DataGrid
 
    Public Shadows Event KeyDown(ByVal sender As Object, ByVal e As _
      KeyEventArgs)
 
    Protected Overrides Function ProcessCmdKey(ByRef msg As _
      System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) _
      As Boolean
        RaiseEvent KeyDown(Me, New KeyEventArgs(keyData))
        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function
 
End Class