OK, allora prova così, dovrebbe andare bene:

Private Sub Form1_KeyDown(KeyCode As Integer, Shift As Integer)

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

End Sub