Private Form_MouseDown__Flag As Boolean, Form_KeyPress_KeyAscii As Integer
. . . . . . . . . . . . . . . . . . . . . . . . .
. . . .обработчики событий:  . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . .
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'запоминаем состояние "кнопка мыши нажата":'
Form_MouseDown__Flag = True
End Sub
__________________________________________________
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'сбрасываем состояние "кнопка мыши нажата":'
Form_MouseDown__Flag = False

If Form_KeyPress_KeyAscii <>  0  Then
    'если был KeyPress - отправляем его Ascii на отработку'
    Call my__KeyPress__Command(Form_KeyPress_KeyAscii, "Form", "MouseUp")
    'сбрасываем запомненный Ascii:'
    Form_KeyPress_KeyAscii =  0 
End If
End Sub
__________________________________________________
Private Sub Form_KeyPress(KeyAscii As Integer)
If Form_MouseDown__Flag Then
    'если нажата кнопка мыши - отправляем KeyAscii на отработку'
    Call my__KeyPress__Command(KeyAscii, "Form", "KeyPress")
End If
End Sub
__________________________________________________
. . . . . . . . . . . . . . . . . . . . . . . . .
. . . .отработка "логики":  . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . .
Private Sub my__KeyPress__Command(KeyAscii As Integer, ElementName As String, EventName As String)
   Form_KeyPress_KeyAscii = KeyAscii
If Form_KeyPress_KeyAscii =  0  Then
    GoTo End_SFP '===>>>===
End If

Dim ch       As String, Uch As String
    ch = Chr(KeyAscii): Uch = UCase(ch)

If EventName = "KeyPress" Then
    Select Case Uch
    Case "R":myStatusString "Rqry?"
    Case Else
        myStatusString "{" & ch & "}"
    End Select
    
ElseIf EventName = "MouseUp" Then
    Select Case Uch
    Case "R":   Call myRequery: myStatusString "Rqry"
    Case Else
    End Select
    
Else: Stop
End If
End_SFP: End Sub