LOCAL lcFontStyle lcFontStyle = '' FOR EACH loColumn IN THis.Columns *** Get the font style WITH loColumn lcFontStyle = lcFontStyle + IIF( .FontBold, 'B', '' ) lcFontStyle = lcFontStyle + IIF( .FontItalic, 'I', '' ) lcFontStyle = lcFontStyle + IIF( .FontOutline, 'O', '' ) lcFontStyle = lcFontStyle + IIF( .FontShadow, 'S', '' ) lcFontStyle = lcFontStyle + IIF( .FontUnderline, 'U', '' ) *** Set the width according to the underlying data .Width = LEN( EVALUATE( .ControlSOurce ) ) * FONTMETRIC( 6, .FontName, .FontSize, lcFontStyle ) ENDWITH ENDFOR