请教各位高手,怎样按住鼠标移动表单上的图片!急用,提前谢谢啦!!!!!!!!!!!

我是这样移动控件的。
 
在表单的 Load 事件中加入以下代码
PUBLIC nX,nY,nXX,nYY,nXY
STORE 0 TO nX,nY,nXX,nYY
nXX=-1000
 
在控件(例如 Image)的 MouseDown 事件中加入以下代码
nXX=this.Left
nYY=this.top
nX=nXCoord  
nY=nYCoord
 
在控件(例如 Image)的 MouseMove 事件中加入以下代码
IF nXX > -1000
  this.Left=nXX+nXCoord-nX
  this.Top=nYY+nYCoord-nY
  nXX=this.Left
  nYY=this.Top
  nX=nXCoord
  nY=nYCoord
ENDIF
 
在控件(例如 Image)的 MouseUp 事件中加入以下代码
nXX=-1000
 
试试看，控件是不是被移动了。

谢谢你,我用你的方法不行,不过,我明白移动的原理了,问题已经解决.多谢!!!!

怎么解决的