AfterSendKeysEventHandler Event
Handles the BeforeSendKey event to permit users to modify a key value or cancel a send key action before it is sent.
This sample changes all characters entered on the screen to upper case
Private Sub IbmScreen_AfterSendKeys(ByVal sender As Variant, ByVal Keys As String, ByVal row As Long, ByVal column As Long)
ky = Asc(Keys)
If ky >= 97 And ky <= 122 Then ky = ky - 32
retrn = ThisIbmScreen.PutText1(Chr(ky), row, column, 1)
End Sub