Private Sub Command1_KeyUp(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF2 MsgBox \"hhh\", vbOKOnly + vbCritical, \"Ì áÊ ¾ \" End Select End Sub