>>51
適当に書くとこんな感じか。

Private Sub Button_KeyUp(ByVal sender As Object, ByVal e As KeyEventArgs) Handles Button.KeyUp
　If (e.KeyCode = Keys.Enter) Then
　　Button_MouseClick(Button, New MouseEventArgs(MouseButtons.None, 1, Button.Location.X, Button.Location.Y, 0))
　End If
End Sub

Private Sub Button_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Button.MouseClick
　クリック時に実行したいコード
End Sub

これでマウスとEnterキーにしか反応しないように出来るべ。
Clickイベントには何も書かないように。