Private Sub txtPreis_KeyDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles txtPreis.KeyDown
        Select Case e.KeyCode
            Case Keys.Return
                Me.txtVerkaufspreis.Focus()
        End Select
End Sub

Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        e.Handled = True
        Select Case e.KeyCode
            Case Keys.Escape
                Me.Close()
            Case Keys.F5
                Save()
        End Select
    End Sub