... DO WHILE ::GetTextWidth( cText, oFont ) > nWidth cText:=Substr(cText,1,Len(cText)-1) ENDDO Endif Si deseamos obtener una presentación vistosa o elegante podemos usar de: Line( nTop, nLeft, nBottom, nRight, oPen ) // líneas Box( nRow, nCol, nBottom, nRight, oPen ) // cajas FillRect( aRect, oBrush ...