[ Συναρτήσεις ] Προγραμματιζόμενα πλήκτρα FUNCTION

[pdhmos]

Καλησπέρα σέ όλους .
Τάσο εχω βάλει τον παρακάτω κώδικα σε όλλες τις φόρμες
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then KeyCode = 0
If KeyCode = vbKeyF2 Then KeyCode = 0
If KeyCode = vbKeyF3 Then KeyCode = 0
' If KeyCode = vbKeyF4 Then KeyCode = 0
If KeyCode = vbKeyF5 And Me.ΑΝΑΝΕΩΣΗΟΘΩΝΗΣ.Enabled = True Then Call ΑΝΑΝΕΩΣΗ
If KeyCode = vbKeyF7 Then KeyCode = 0
If KeyCode = vbKeyF8 Then KeyCode = 0
If KeyCode = vbKeyF9 Then KeyCode = 0
If KeyCode = vbKeyF10 Then KeyCode = 0
If KeyCode = vbKeyF11 Then KeyCode = 0
If KeyCode = vbKeyF12 Then KeyCode = 0
If KeyCode = vbKeyEscape Then DoCmd.Close
End Sub
Και δεν ξέρω πώς μπορώ να τον γράψω μία φορά και νά τον καλώ από διάφορα σημεία

υγ μήπως η ώρα που δείχνει το forum είναι λάθος ?