KeyPReview

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyR And Shift = 2 Then Form2.Show: Me.Hide
If KeyCode = vbKeyC And Shift = 4 Then End
End Sub

Private Sub Form_Load()
KeyPreview = True
End Sub