Private Sub Button_previewkeydown(sender As Object, e As _
    PreviewKeyDownEventArgs) 
    Handles button1.PreviewKeyDown, button2.PreviewKeyDown, _
    button3.PreviewKeyDown
 
        Select Case e.KeyCode
            Case Keys.Return
                e.IsInputKey = True
        End Select
 
  End Sub