>>513
こういうこと？
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 72 And Shift = 2 Then Form2.Show
End Sub