>Mike,
>
>You can do both things this way:
>
>

>with evaluate("Thisform.ResultLine"+ALLTRIM(This.Tag)+".txtPatientNotes")
>   .Value = ALLTRIM(This.Value) + EVALUATE(ALLTRIM("ThisForm.ResultLine"+ALLTRIM(This.tag)+".txtPatientNotes.Value"))
>   .SetFocus()
>endwith
>

>
>You can replace all the strings more readable
>
>

>lcName = "Thisform.ResultLine"+ALLTRIM(This.Tag)+".txtPatientNotes"
>with evaluate(lcName)
>   .Value = alltrim(this.Value) + alltrim(.Value)
>   .SetFocus()
>endwith
>

I'd have used STORE for the Value assignment and macro substitution for the SetFocus. I like your way much better.