*Image.Mousedown Lparameters nButton, nShift, nXCoord, nYCoord If nButton=1 Do while mdown() lnNewY = mrow(wontop(),3) lnNewX = mcol(wontop(),3) With this .Move(.Left + (lnNewX - nXCoord), .Top + (lnNewY - nYCoord)) Endwith nXCoord = lnNewX nYCoord = lnNewY Enddo EndifCetin