The following procedure finds the first protected field after the screen location where the mouse was last clicked, copies the field contents to the Clipboard, and then prints the contents in a message box. Try this procedure while running the demonstration 3270 host.

Sub FoundTextToClipboard ()

 With Session

  Dim selection As String


  .FindField rcMouseRow, rcMouseCol, rcNext, rcProtected

  .SetSelectionStartPos .FoundFieldStartRow, .FoundFieldStartColumn

  .ExtendSelection .FoundFieldEndRow, .FoundFieldEndColumn


  selection = .GetClipboardText

  MsgBox selection


 End With

End Sub