>Fred,
>
>Here's what I'm doing to test all this:
>
>
>cTestVal = "Client"
>cFontName = "Arial"
>nFontSize = 9
>nWidth = CEILING(FONTMETRIC(6, cFontName, cFontSize) * TXTWIDTH(cTestVal, cFontName, cFontSize))
>
>_Screen.AddObject("MyText", "Textbox")
>_Screen.MyText.Width = nWidth
>_Screen.MyText.FontName = cFontName
>_Screen.MyText.FontSize = cFontSize
>_Screen.MyText.Value = cTestVal
>_Screen.MyText.Visible = .T.
>
>
>The word 'Client' is truncated in the visible portion of the text box

Adding roughly 8 seems to work (2 * border + a few extra).