... MoveTo( ::hDCOut, nLeft, nTop ),; LineTo( ::hDCOut, nRight, nBottom,If( oPen != nil, oPen:hPen, 0 ) )) ...y listo. En tu PRG simplemente colocas el oprn:cmline(a,b,c,d) .... y listo. 2) sustituir en cmline por un oprn:box muy estrecho, que para el caso simula una línea. oPrn:Cmtr2Pix(@nLinI, ...