Leandro, Añade estas líneas al ejemplo photos.prg: local oPen, nX1, nY1, nX2, nY2 DEFINE PEN oPen COLOR CLR_YELLOW WIDTH 3 ... oImg:bLClicked = { | nRow, nCol | If( nX1 == nil, ( nX1 := nRow, nY1 := nCol ), ( nX1 := nil, nX2 := nil ) ) } oImg:bMMoved = { | nRow, nCol, hDC | If( nX1 != nil,; ( oImg:R...