*MouseDown() LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nButton = 1 THIS.mousedownx = m.nXCoord THIS.mousedownY = m.nYCoord ENDIF *MouseMove() LPARAMETERS nButton, nShift, nXCoord, nYCoord LOCAL lnDifferenceX, lnDifferenceY IF nButton = 1 AND (THIS.mousedownx != 0 OR THIS.mousedowny != 0) m.lnDifferenceX = m.nXCoord - THIS.mousedownx m.lnDifferenceY = m.nYCoord - THIS.mousedowny THIS.Move(THIS.LEFT + m.lnDifferenceX, THIS.TOP + m.lnDifferenceY, This.Width, This.Height) THIS.MouseDown(nButton, nShift, nXCoord - m.lnDifferenceX, nYCoord - m.lnDifferenceY) ENDIF *MouseUp() LPARAMETERS nButton, nShift, nXCoord, nYCoord THIS.mousedownx = 0 THIS.mousedownY = 0I can't take credit for the code, it came from a sample of moving a form without a titlebar. Think it might have been Craig Boyd's.