'To run this example, copy it to the ThisScreen code window
Public SentKeys As String
Private Function Screen_ControlKeySending(ByVal sender As Variant, Key As Attachmate_Reflection_Objects_Emulation_OpenSystems.ControlKeyCode) As Boolean
'Print the keys that are sent and the control key
Debug.Print SentKeys & " <Key: " & Key & ">"
Screen_ControlKeySending = True
'Clear the SentKeys buffer
SentKeys = ""
End Function
Private Sub Screen_KeysSent(ByVal sender As Variant, ByVal Keys As String)
'Add the sent keys to the buffer
SentKeys = SentKeys & Keys
End Sub