delp6in 's Profile

Public Class myUserControl

Public Event onEnterKey(ByVal sender As System.Object, ByVal e As System.EventArgs)
Public Event onF4(ByVal ControlName As String)

Private Const WM_KEYDOWN = &H100

Protected Overrides Function ProcessKeyPreview(ByRef m As _
System.Windows.Forms.Message) As Boolean

If m.Msg = WM_KEYDOWN Then
Select Case m.WParam.ToInt32
Case ConsoleKey.Enter
RaiseEvent onEnterKey(button01, New System.EventArgs)
Case ConsoleKey.F4
RaiseEvent onF4(MyBase.ActiveControl.Name)
End Select
End If

Return MyBase.ProcessKeyPreview(m)

End Function
End Class