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
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