Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 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.E Then Dosomething()
End Sub
Private Sub Dosomething()
'你要的代码写这里。
End Sub
执行键盘事件方法如下：
第一步，点击VS工具。
第二步，打开后，新建一个Windows窗体应用程序。
第三步，请看右下方Form的属性栏。
第四步，双击KeyDown。
第五步，输入提示按键代码，如图所示。
第六步，再次输入代码，设置属性KeyPreview为true。
第七步，运行程序，按下举例F5，则会弹出提示，表明已经成功获。
选到TextBox1的keydown方法，然后val=keycode不行么？
焦点在哪个控件，哪个控件就会有keydown，没有焦点也就不会有。