Public Function HotKeys(KeyCode As Integer, Shift As Integer, callerForm As String)
Dim strOpenarg As String
Dim intkey As Integer
intkey = KeyCode
KeyCode = 0

    Select Case intkey
        Case 17
            ctrlKey = True
        Case 70

        If ctrlKey = True Then
            ctrlKey = False
            MsgBox "Ctrl+f kullanılamaz"
            GoTo abort

        End If
            
        Case 80

        If ctrlKey = True Then
            ctrlKey = False
            MsgBox "Ctrl+p kullanılamaz"
            GoTo abort

        End If
    

        Case Else
            GoTo abort
        End Select
    
exitsub:
Exit Function

abort:
KeyCode = intkey
End Function

Call HotKeys(KeyCode, 0, Me.Name)