>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) >ENDIF > >You da Man! Other than changing THISFORM to THIS, it worked perfectly. I know you got it from somewhere else, but this was really cool.