以下是引用slore在2006-12-15 19:55:02的发言：

Option Explicit

Dim OneHasPress As Boolean
Dim TheKey1 As Integer, TheKey2 As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)

If Not OneHasPress Then
TheKey1 = KeyAscii
TheKey2 = KeyAscii - 32

Select Case KeyAscii
Case 97
Print "97"
Case 98
Print "98"
Case Else
Print KeyAscii
End Select
End If

If Not OneHasPress Then OneHasPress = True
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = TheKey1 Or KeyCode = TheKey2 Then OneHasPress = False
End Sub

Private Sub Form_Load()
OneHasPress = False
End Sub