>>WITH Thisform >> lnPosX = .Shape1.Left >> lnPosY = .Shape1.Top >> >> FOR i=1 TO .Shape1.Width STEP 2 >> lnPosX1 = lnPosX + i - 1 >> lnPosY1 = lnPosY >> .Line(lnPosX1, lnPosY1, lnPosX1+1, lnPosY1) >> lnPosY2 = lnPosY1+.Shape1.Height-1 >> .Line(lnPosX1, lnPosY2, lnPosX1+1, lnPosY2) >> ENDFOR >> >> FOR i=1 TO .Shape1.Height STEP 2 >> lnPosX1 = lnPosX >> lnPosY1 = lnPosY + i - 1 >> .Line(lnPosX1, lnPosY1, lnPosX1+1, lnPosY1) >> lnPosX2 = lnPosX1+.Shape1.Width-1 >> .Line(lnPosX2, lnPosY1, lnPosX2+1, lnPosY1) >> ENDFOR >>ENDWITH >>>>