Private Sub IbmScreen_MouseClickEx(ByVal windowMessage As Long, ByVal row As Long, ByVal column As Long, ByVal x As Long, ByVal y As Long)
 
    'When the the left mouse button is released (windowMessage = 514 is WM_LBUTTONUP), get the field the mouse is in and print the text in the field.
    If windowMessage = 514 Then
        Sleep 200
      
        Dim myField As HostField
        Dim myFieldText As String
 
        'Get the field
        Set myField = ThisIbmScreen.GetField(row, column)
 
        'Print the text in field that was clicked
        myFieldText = myField.text
        Debug.Print myFieldText
    
    End If
    
End Sub