* Suppose you have custom form properties nCurrX and nCurrY initialized to 0 *Mouse up LPARAMETERS nButton, nShift, nXCoord, nYCoord thisform.nCurrX = 0 thisform.nCurrY = 0 *Mouse move LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nButton = 1 this.top = this.top + (nYCoord - thisform.nCurrY) this.left = this.left + (nXCoord - thisform.nCurrX) thisform.nCurrX = nXCoord thisform.nCurrY = nYCoord ENDIF *Mouse down LPARAMETERS nButton, nShift, nXCoord, nYCoord IF nButton = 1 thisform.nCurrX = nXCoord thisform.nCurrY = nYCoord ENDIFCetin