拦截一下就可以了。 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = Asc("N") And Shift = 2 Then KeyCode = 0 End If End Sub
Private Sub Form_Load() Me.KeyPreview = True End Sub