之前一直苦苦纠结怎么实现这个问题，今天无意间发现了 窗体上有 keypriview这个属性

后经过查找相关资料，了解它是用于窗体捕捉键盘上按下的键

只要新建一个窗体，将此属性设置为true，便可以轻松实现这个功能。

方法一：
使用提交为 me.keydown完成

    Private Sub form_keypress(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Escape Then
            Dim messge As New MSG
            messge.head.Text = "即将退出系统"
            messge.msgP.Text = "按下enter退出系统，esc返回..."
            messge.Show()
        End If
        If e.KeyCode = Keys.F4 Then
            Dim messge As New MSG
            messge.head.Text = "F4"
            messge.msgP.Text = "你按下了F4"
            messge.Show()
        End If
        If e.KeyCode = Keys.F5 Then
            Dim messge As New MSG
            messge.head.Text = "F5"
            messge.msgP.Text = "你按下了F5"
            messge.Show()
        End If
    End Sub

• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
• 11
• 12
• 13
• 14
• 15
• 16
• 17
• 18
• 19
• 20
• 21

这样可以轻松捕捉键盘上的所有键 esc举例： F4 举例 F5举例

这里再例举一种方法:handles me.keypress

 Private Sub form_keypress(sender As Object, e As KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar = ChrW(27) Then
            Dim messge As New MSG
            messge.head.Text = "即将退出系统"
            messge.msgP.Text = "按下enter退出系统，esc返回..."
            messge.Show()
        End If
        If e.KeyChar = Chr(115) Then
            Dim messge As New MSG
            messge.head.Text = "F4"
            messge.msgP.Text = "你按下了F4"
            messge.Show()
        End If
        If e.KeyChar = Chr(116) Then
            Dim messge As New MSG
            messge.head.Text = "F5"
            messge.msgP.Text = "你按下了F5"
            messge.Show()
        End If
    End Sub

• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
• 11
• 12
• 13
• 14
• 15
• 16
• 17
• 18
• 19
• 20

但是，不幸的是这种方式不能捕捉到F1-F12,以及一些特殊的键，比如shift等

当然还可以用handles me.keyup也是可以实现的