>George, I just discovered another Foxtool function that makes this totally portable. "JUSTSTEM"
>
>LOCAL lcField, lcTable
>lcField = UPPER(JUSTEXT(This.ControlSource))
>lcTable = UPPER(JUSTSTEM(This.ControlSource))
>= AFIELDS(gaMyArray, lcTable) && Create the array
>lnoffset = ASCAN(gaMyArray, lcfield)
>IF lnoffset > 0
> lnrow = ASUBSCRIPT(gaMyArray, lnoffset, 1)
> IF gaMyArray[lnrow, 4] = 2
> This.InputMask = "$$9,999.99"
> ENDIF
>ENDIF
>
>However, for the life of me, I can't find "JUSTEXT" in the FOXTOOLS.HLP. Am I missing something?

It's in there (after JustPath). One of the reasons that I wrote the Extended Foxtools Help File was the difficulty in locating an individual function. Further, it doesn't document all the functions. Mine is completely cross-referenced, documents every function, and also some errata that's in the one supplied with VFP. I hope that if you download it you'll find it much more useful.