Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF8
Call Command41_Click
Case vbKeyTab
Call Command111_Click
Case vbKeyEnd
Call Command123_Click
End Select
End Sub