vb.net 按DEL就等点击Button按钮，代码怎么实现

vb.net 按DEL就等点击Button按钮，代码如何实现？
按DEL就等点击Button按钮，代码如何实现？
快捷键设置

------解决方案--------------------
用键盘钩子，捕捉DEL,然后发送　点击Button按钮　的消息
------解决方案--------------------
Private Declare Function GetAsyncKeyState Lib "user32 " Alias "GetAsyncKeyState " (ByVal vKey As Long) As Integer

If GetAsyncKeyState(27) <> 0 Then
Button1_Click(sender, e)
End If
------解决方案--------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox( "button1.click ")
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Delete Then
Button1_Click(sender, e)
End If
End Sub

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.Delete Then
Button1_Click(sender, e)
End If
End Sub

这是最简单的
------解决方案--------------------
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Delete Then
Button1_Click(sender, e)
End If
End Sub