Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 121 Then
 
    ' setzt den Tastendruck zurück, für Windows gibts daher keine gedrücktes F10
    KeyCode = 0  
 
    ' hier kann die gewünschte Aktion ausgeführt werden, oder aber auch nicht
    MsgBox "F10 gedrückt"
 
  End If
End Sub

Viel Spass,
R@lf