... usar de: Line( nTop, nLeft, nBottom, nRight, oPen ) // líneas Box( nRow, nCol, nBottom, nRight, oPen ) // cajas FillRect( aRect, oBrush ) // relleno */ /* colu col fila 1 50 51 1*1000+51 1051 fila 2 30 32 2*1000+30 2030 */ Func muevelo(HV,n) //aSelCtrls Local j,control,aRect If valtype(aSelCtrls)="A" ...