Public Event getDBClick()
    Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
        Dim WM_KEYDOWN As Integer = 256  '消息响应的问题可以参考其他win32编程的文章        Dim WM_SYSKEYDOWN As Integer = 260        If ((msg.Msg = WM_KEYDOWN) Or (msg.Msg = WM_SYSKEYDOWN)) Then            Select Case keyData                Case Keys.Down                    '  MsgBox("截到下箭头键")                    '  Return True                Case Keys.Up                    ' MsgBox("截到上箭头键")                    '  Return True                Case Keys.Enter
                    '  RaiseEvent getDBClick()
                    Me.OnDoubleClick(Nothing)
                    '  SendKeys.Send("{Tab}")
                    '   Return True
                Case Keys.Control + Keys.M                    ' MsgBox("<CTRL> + m 组合键被截获")                    '  Return True                Case Keys.Alt + Keys.Z                    ' MsgBox("<ALT> + z 组合键被截获")                    '  Return True
            End Select
        End If
    End FunctionEnd Class