LPARAMETERS nButton, nShift, nXCoord, nYCoord LOCAL lnDifferenceX, lnDifferenceY IF nButton = 1 AND (THISFORM.mousedownx != 0 OR THISFORM.mousedowny != 0) m.lnDifferenceX = m.nXCoord - THISFORM.mousedownx m.lnDifferenceY = m.nYCoord - THISFORM.mousedowny THIS.Move(THIS.LEFT + m.lnDifferenceX, THIS.TOP + m.lnDifferenceY, This.Width, This.Height) THIS.MouseDown(nButton, nShift, nXCoord, nYCoord) ENDIFGary