function load declare integer ReleaseCapture in WIN32API declare integer SendMessage in WIN32API integer, integer, integer, integer endfunc function mousedown lparameters nButton, nShift, nXCoord, nYCoord local lnHandle if nButton = 1 ReleaseCapture() SendMessage(this.hwnd, 0x112, 0xF012,0) endif endfuncThat will enable movement of the form from any point that has no object