Originariamente inviato da Negretto
codice:
Private Sub Form1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyI And Shift = 2 Then
Form2.show
End If

End Sub
Così dovrebbe funzionare...