晕。F4没有ASCII码，只有扫描码，直接用常量就可以vbKeyF4 另外，你自己写两行代码就可以看任何键的扫描码。 Option Explicit

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Debug.Print "KeyCode=" & KeyCode End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) Debug.Print "KeyAscii=" & KeyAscii End Sub