vb.net from窗体接受键盘输入信息

Public Class Form1
    ' 当窗体初始化时，订阅键盘按下事件
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddHandler Me.KeyDown, AddressOf Form1_KeyDown
    End Sub
 
    ' 键盘按下事件的处理程序
    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs)
        ' 输出按下的键
        MessageBox.Show("键被按下: " & e.KeyCode)
    End Sub
End Class

　　

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '  Handles MyBase.Load
        Me.KeyPreview = True '注册窗体的键盘事件
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F2 Then
            Dosomething()
        End If
    End Sub

    Private Sub Dosomething()
        '你要的代码写这里。
        TextBox7.Text = Keys.F2
    End Sub