Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer) Select Case K...

代码说明：

Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF2 MsgBox "hhh", vbOKOnly + vbCritical, "Ì Ã¡Ê ¾ " End Select End Sub -Private Sub Command1_KeyUp (KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF2MsgBox