Eventi Datagrid

Public Class Class1 : Inherits DataGridView
    Protected Overrides Function ProcessDialogKey(keyData As Keys) As Boolean
        Dim key As Keys = (keyData And Keys.KeyCode)
        If key = Keys.A Then
            Return Me.ProcessRightKey(keyData)
        End If
        Return MyBase.ProcessDialogKey(keyData)
    End Function
End Class

Public Class Class1 : Inherits DataGridView
Public Event MyKeyDown(e As Keys)
Protected Overrides Function ProcessDialogKey(keyData As Keys) As Boolean
        RaiseEvent MyKeyDown(keyData)
        Return MyBase.ProcessDialogKey(keyData)
End Function
End Class

Public Class Class1 : Inherits DataGridView
    Public Event MyKeyDown(e As MyEventArgs)
    Protected Overrides Function ProcessDialogKey(keyData As Keys) As Boolean
        Dim e As New MyEventArgs
        e.Key = keyData
        RaiseEvent MyKeyDown(e)
        If e.Cancel Then
            Return MyBase.ProcessRightKey(keyData)
        Else
            Return MyBase.ProcessDialogKey(keyData)
        End If

    End Function
End Class

Public Class MyEventArgs
    Public Property Key As Keys
    Public Property Cancel As Boolean
End Class