>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 >>