[المتألق9]

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Enter Then
                      Button1_Click(sender, e)
        End If
    End Sub